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Möchten Sie als Software-Autor 
für den TRONIC- Verlag tätig werden? 



Wir würden uns freuen, in Ihnen einen Ansprechpartner für eine künftige 
intensive Zusammenarbeit zu finden. Der TRONIC- Verlag vereinbart mit seinen 
künftigen Software- Autoren pro veröffentlichte Seite (einschl. Programm- 
beschreibung) ein Honorar von DM 120, — ♦ 

Dieses Entgelt wird fällig, wenn die Redaktion des Verlages sich für eine 
Veröffentlichung entscheidet. Die Auszahlung erfolgt also nicht erst nach 
Veröffentlichung in einer unserer Ausgaben, sondern wesentlich früher. 



Der Verlag wird vom Autor berechtigt, seine Manuskripte (Programme) zur 
Darstellung im Heft heranzuziehen und abzudrucken. 



Einzusenden sind: 

- Programmbeschreibung und Programmflußplan 

- bespielte Cassette oder Diskette 

- Listing 
mit Copyright. 

- Freiumschlag 



Haben Sie Interesse? Haben Sie noch Fragen? 



*ol\ten Sie 
ei« un» •"• 'rsctil*** L' 

oÄSÜ 



Setzen Sie sich telefonisch mit unserer Redaktion 
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FROM INCENTIVE SOFTWARE LTD 
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Nachdem wir uns im letzten Teil mit den Arithmetik' 
Operationen beschäfitgt haben, wollen wir uns nun mit der 
Definition neuer Befehle befassen. Die bislang vorgestellten 
FORTH-Befehle sind bis jetzt ausschließlich interaktiv und 
interpretativ aufgerufen worden. Das bedeutet, daß ein 
Wort (z. B. DUP oder + ) mit der Eingabe seines Namens in 
die Tastatur aufgerufen wird, indem der äußere Interpreter 
dann das Wörterbuch (Dictionary) nach diesem Wort ab- 
sucht, es lokalisiert und ausfuhrt. Diese Art der Befehls- 
Abarbeitung wird im Gegensatz zu Basic nur bei der 
direkten Eingabe von Befehlen verwendet. Wir haben nun 
bereits so viele Befehle kennengelernt, daß wir daran gehen 
können, kleinere Programme damit zu erstellen. Wie schon 
im ersten Teil erwähnt, ist das gleichbedeutend damit, die zu 
anfangs erwähnten Befehle zu neuen Befehlen zusammen- 
zusetzen. . 

Wollen wir einen Befehl definieren, so müssen wir als erstes 
mit dem Befehl »:«, den FORTH-COMPILER einschalten. 
Als nächstes wird die Bezeichnung und danach die eigent- 
liche Definition des neuen Befehles eingegeben. Mit dem 
Befehl ,:« wird der FORTH-COMPILER wieder ausge- 
schaltet und damit die Definition abgeschlossen. 

Wir wollen nun einen Befehl definieren, welcher eine Zahl 
mit sich selbst multipliziert und das Ergebnis auf den Stack 
legt. Als Bezeichnung wählen wir »QUADRO«. 
: QUATRO DUP * ; (RETURN) OK 

Wie zu erkennen ist, besteht die eigentliche Definition aus 
einer unbegrenzten Zahl von Befehlen. Der Befehl DUP du- 
pliziert die oberste Zahl des Stack und der nachfolgende »%« 
Befehl bildet, durch die Multiplikation, die Quadratzahl. 
In den nachfolgenden Beispielen können wir den neuen 
Befehl testen: 

2 QUATRO • {RETURN} 4 OK " 

5 QUATRO • (RETURN) 25 OK 
10 QUATRO • (RETURN) 100 OK 
Durch den Befehl VLIST können 
WÖRTERBUCH (BEFEHL's-Liste) 
Monitor ausgeben lassen. Der neue Befehl QUATRO steht 
nun am Anfang .dieser Liste. 



wir das gesamte 
auf Drucker oder 
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Bei der Defination von neuen Befehlen muß darauf geachtet werden, daß die Befehlsbezeichnung keine 3 1 
Zeichen übersteigt. Es ist nicht unbedingt notwendig und auch -nicht immer möglich, daß die Defination in 
eine einzige Zeile geschrieben wird. Als Beispiel wollen wir einen Befehl definieren, welcher die Kubikzahl 
eines Operanten errechnet: 

: KUBIK DUP DUP * * ; (RETURN) OK 

Wir können das gleiche auch wie folgt eingeben: 
: KUBIK (RETURN) 

DUP DUP (RETURN) 
* * (RETURN) 

(RETURN) OK 

Bei der direkten Eingabe von Befehlen ist die Schreibweise kaum von Bedeutung, da die Struktur der Eingabe 
nicht gespeichert wird. Ganz anders ist dies bei der Programmierung mit dem Texteditor. Hier sollte man 
unbedingt auf Strukturierung und gute Dokumentation achten, um auch später noch Erweiterungen oder 
Änderungen vornehmen zu können. Wir werden uns später noch genauer mit diesem Thema auseinander 
setzen. 

Nun wollen wir auch unseren KUBIK-Befehl testen: 

2 KUBIK • (RETURN) 8 OK 
5 KUBIK • (RETURN) 125 OK 
10 KUBIK • (RETURN) 1000 OK 

Werden in einem Programm oft die gleichen Befehls-Folgen verwendet, so ist es sinnvoll diese zu einem Befehl 
zusammenzufassen : 

1 + 1 + ; (RETURN) OK 

1 - 1 - ; (RETURN) 1 

2+ 2+ ; (RETURN) 

Einige dieser einfachen Befehls-Folgen sind im FORTH-Standart schon enthalten und wurden im letzten T eil 
schon vorgestellt- Es ist nun sehr leicht, die fehlenden Kombinationen zu definieren. Wird in FORTH ein 
Befehl zweimal definiert, so gilt immer die letzte Defination. 

FORTH befehle können auch zur Umsetzung dienen. Bei den meisten farbigen Computern dient ein 
Zahlencode zur Bestimmung einer Farbe. 
Farbcode des Commodore 64 : = Schwarz 

1 = Weiß 

2 = Rot 

3 = Türkis 
usw. 

Wollen wir statt des umständlichen Codes einfach die Farbe eingeben, können wir dies durch die folgenden 
Deflationen erreichen: 

SCHWARZ 0; (RETURN) 

WEISS 1 ; (RETURN) 

ROT 2 ; (RETURN) 

TÜRKIS 3 (RETURN) 

usw. 

Die Funktion ist sehr einfach: Nach Eingabe der Farbbezeichnung legt der entsprechende Befehl den dazu- 
gehörigen Wert auf den Stack . 

Es ist auch möglich mit den Farben zu rechnen: 
WEISS ROT + . (RETURN) 3 OK 

Mit Hilfe eines PRINT Befehls können wir auch leicht eine Vokabel-Übersetzung realisieren. Der PRINT 
Befehl besitzt in FORTH folgende Syntax: ."text". 
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Elementare String-Befehle 

Leider existiert in FORTH nur eine 
kleiner Befehlssatz zu Stringverar- 
beitung. Der FORTH-Kern enthält je- 
doch einige Worte für einfache Ein- 
und Ausgaben von Strings (Texten), 
die für viele Applikationen völlig aus- 
reichen dürften. 
CR 

Dieser Befehl bewirkt auf dem Ausga- 
begerät (normal Monitor) Zeilenvor- 
schub und Wagenrücklauf. 
12 13 14 . . CR . (RETURN) 14 13 
12 OK 

. "TRONIC- CR . „VERLAG" (RE- 
TURN) TRONIC 
Verlag OK 
SPACE 

Ein SPACE-Zeichen wird ausgegeben 
. „APRIL" SPACE . „MAI" (RETURN) 
APRIL MAI OK 
Spaces (n 1 >- empty) 
Eine bestimmte Anzahl von SPACE- 
Zeichen wird ausgegeben. 
. ..APRIL" 4 SPACE . „MAI" (RE- 
TURN) APRIL MAI OK 
EMIT (c -» empty) 
Der ASCII-Charakter c wird ausgege- 
ben. In Basic lautet dieser Befehl 
CHR$ (x) . 

65 EMIT (RETURN) A OK 

66 EMIT (RETURN) B OK 
EXPECT (adr n -» empty) 

Dieser Befehl entspricht in etwa dem 
INPUT des Basic-Interpreters. Ein 
String mit ,n '-Zeichen wird von der 
Tastatur erwartet und ab Adresse 
,adr' abgespeichert. Ein RETURN 
kann diese Prozedur beenden, auch 
wenn die Anzahl ,n' noch nicht er- 
reicht sein sollte. 
10000 11 EXPECT (RETURN) 
COMPUTRONIC (RETURN) OK 
TYPE (adr n -» empty) 
Dieser Befehl gibt eine Zeichenkette, 
die ab Adresse ,adr' gespeichert und 
,n'-Zeichen lang ist, auf dem Ausga- 
begerät aus. 

10000 11 TYPE (RETURN) COM- 
PUTRONIC OK 
COUNT (adrl — adr2 n) 
Dieser Befehl erwartet eine Adresse 
,adr 1' auf dem Stack und ermittelt 
hieraus die Startadresse und die Zei- 
chenzahl des Strings. Dies sind die 
Angaben, die von Type erwartet wer- 
den. 




Die Anwendung dieses Wortes erfolgt 
also üblicherweise in der Form 
,adrl COUNT TYPE', 
wobei als ,adrl' die Adresse des 
COUNT-Bytes (Zeichenanzahl) 
übergeben wird. Der eigentliche 
String muß dem COUNT-Byte folgen. 
KEY (-» c) 

Dieser Befehl wartet auf eine beliebi- 
ge Tastatureingabe und übergibt den 
entsprechenden ASCII- Code auf den 
Stack. Bei einigen Forth-Versipnen 
ist die RETURN-Taste zur Quittie- 
rung erforderlich. 
KEY . (RETURN) 
A" 

65 OK 

KEY KEY . . (RETURN) 
A B 

66 65 OK 

KEY EMIT (RETURN) 

D 

D OK 
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Aktuelles 




Computer können nieht nur 
rechnen, zählen und sortieren. 
Die elektronischen Heinzel- 
männchen können weit mehr. 
Musik machen zum Beispiel. 
Heimcomputer spielen wie 
Klaviere, wie Saxophone oder 
wie Schlagzeuge. Sie 
spielen ein-und mehrstimmig - 




eine echte Hitparade 
kommt ohne sie aus: 
Elektronische Klang- 
i effekte liebte schon 
Rock-Vater Elvis, und seine 
Nachfahren - von den Beat- 
les bis zu Nina Hagen - feil- 
ten eifrig an der Musik aus 
Stromimpulsen. Auch so un- 
gewöhnliche Töne wie etwa 
das Geheul startender Raum- 
schiffe in „Star Wars" und 
das Zischen von Science-fic- 
tion-Strahlenwaffen stam- 
men aus dem Wunderland 
der Elektronik. 

Aufwendig und teuer ist 
die Erzeugung solchen 
Sounds in den Tonstudios 
früherer Tage gewesen. Die 
Mischpult-Regisseure fürch- 
ten nun die Konkurrenz des 
Home-Computers. Der 

macht's entschieden billiger. 

Jeder, der mit dem Key- 
board eines derartigen Gerä- 
tes umgehen kann, ist sein ei- 
gener Toningenieur. Auf Ta- 
stendruck lassen sich den 
Chips die unmöglichsten Ge- 
räusche entlocken. Aber 
auch den Ohren genehme 
Töne und ganze Musikstück- 
chen rieseln sanft aus dem 
Mikrocomputer. 

„Eine irre Sache", findet 
Ernst Huber. Der 17 Jahre 
alte Schüler aus München hat 
seinen Commodore 64 in ein 
piepsendes, summendes und 
klingendes Musikinstrument 
verwandelt. Per Knopfdruck 
wird der „Computer des Jah- 
res 1983" plötzlich zum Syn- 
thesizer. 

Das kann übrigens jeder 
Mikrorechner. Nur der C 64 
macht's besonders schön. In 
einem speziellen Bauteil - 
dem „Sound Interface Device 
(S1D)" - sind die Klangele- 
mente eingepaßt. Zu dem 
Chip gehören drei Tongene- 
ratoren, mischbare Filter und 
sogenannte Ringmodulato- 
ren als technischer Zusatz. . 

Damit läßt sich schon ein 
ganz erhebliches Spektakel 
anrichten. Donner, Motorge- 
dröhn, Schüsse und Detona- 
tionen von Sprengstoff hören 
sich aber erst dann so richtig 
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echt an, wenn eine Stereo- 
Anlage mit dem Computer 
verbunden wird. Mit einem 
künstlichen Donner hat 
Ernst auf diese Weise seine 
große Schwester schon mal in 
heillosen Schrecken versetzt. 
Aber auch weniger un friedli- 
che Geräusche können mit 
der Tonerzeugung des C 64 
hervorgebracht werden. 

Das Programm „ Synth i- 
mat 64" wandelt für knapp 
hundert Mark die Rechner- 
Tastatur in ein Klavier um. 
Zur Hardware-Ausrüstung 
sind neben dem Computer 
ein Diskettenlaufwerk und 
ein Farbfernseher nötig. 

Auf eine Diskette passen 
256 Soundprogramme, dazu 
neun vollständige Lieder, die 
sich jeweils mit den Sounds 
kombinieren lassen. So sind 
Begleitung und Melodiestim- 
me unabhängig voneinander 
zu spielen. Das wird auch auf 
dem Bildschirm abgebildet. 
Zwei verschiedene Tastatu- 
ren tauchen auf dem Monitor 
auf. 

Das Keyboard des Home- 
computers ist freilich nicht 
für Pianistenhände geschaf- 
fen. Martha Argerich würde 
es bestimmt als Zumutung 
von sich weisen, auf schlich 1 
ten Schreibmaschinentasten 
ein Konzert zu geben. Profi- 
musiker werden wohl kaum 
auf ein echtes Klavier ver- 



zichten wollen. Doch Hobby- 
Spieler und EinSteiger in die 
Welt des elektronischen 
Klangs können sich über ih- 
ren Spar-Synthesizer freuen. 

Und die Funktionen sind 
vielfältig, die „Synthimat" 
der Elektronik entlockt. Bei- 
spielsweise kann eine Melo- 
die als Begleitmusik zu einem 
Lied gewählt werden. Auf 
Druck einer bestimmten Ta- 
stenfolge spielt das Pro- 
gramm die Tonleiter rauf 
und runter. Oder schweben- 
de Töne aus den Oszillatoren 
gaukeln eine Streicherbeglei- 
tung vor. Auch Akkorde 
klingen aus dem zum Musik- 
instrument erkorenen Com- 
puter. 

Jede Taste, die berührt 



wird, wird auf dem Key- 
board-Schema des Bild- 
schirms angezeigt - wie bei 
einem Klavier, das von Geist- 
erhand spielt. 

Besonders einfach ist es, 
den ZX Spectrum als tönen- 
des Gerät, das die Tonleiter 
auswendig weiß, einzusetzen. 
Dazu wird die „BEEP"-Taste 
benutzt. Die Noten müssen 
zuvor in Zahlen codiert wer- 
den. Dann läuft ein selbst 
programmiertes Musikstück 
ab. So bedeutet etwa 1,0 die 
Tonlage eines C. Die Eins 
legt die Länge des Tones und 
die zweite Zahl die Höhe 
fest. Für eine Sekunde lang 
klingt ein C auf. Aber erst 
mit einem Verstärker sind die 
Musikstücke in angenehmer 
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Erst auf einem Os- 
zillographen wer- 
den die Hüllkur- 
ven der Töne, die 
von einem Com- 
puter erzeugt wer- 
den, sichtbar. Sie 
sind für die Klang- 
farbe der Töne 
verantwortlich. Je 
nach Wahl der 
Hüllkurve klingt 
der Ton scharf, 
rauh oder weich 



Beispiel für ein Musik-Programm ] 


10 SI = 54272: FL = SI: 

FH = SI+l-.W = SI + 4: 

A *= SI + 5:H = SI + 6^L = SI + 


1 . Definition der Registeradressen 
24 


20 POKE L, 15 


2. Volle Lautstärke 


30POKEA,« + 9 


3 . Anschlag 


40 POKER H, 4* 16 + 4 


4. Halten und Auskhngen 


50 POKE FH, 29: POKE FL, 69 


5. Hi und Lo Byte der Frequenz, hier für den Kammerton 
A. Für andere Töne sind die beiden Werte aus der Tabelle 
im Anhang P zu entnehmen. 


60 POKE W, 17 


6. Wellenform. Muß immer als letztes eingestellt werden, 
da das niedrigste Bit in diesem Register den Tongenerator 
ein- bzw. ausschaltet. 


70 FORT = 1T05000:NEXT 


7. Schleife zur Einstellung der Tondauer. 


80 POKE W, 0:POKE A, 0: 
POKEH,0 


8. Ausschalten vo,n Wellenform- und Hüll kurvend n- 
stellungen. 
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Lautstärke vernehmbar. 

Mit einem maßgeschnei- 
derten Programm tut der 
Spectrum auch mal so, als sei 
er ein Klavier. 

Der lockere Umgang mit 
Musik fällt kaum einem 
Computer schwer. 

Aber wie kommt es dazu, 
daß diese elektronischen Ap- 
parate überhaupt zu Kompo- 
nisten und Solisten werden 
können? Die Elektrotechnik 
macht sich zunutze, daß je- 
der Ton - egal ob ein musi- 
kalischer oder sonst einer - 
aus Frequenzen besteht. Für 
das Ohr des Menschen ist ein 
Schwingungsbereich von 20 
bis 15 000 Hertz hörbar. Der 
Computer produziert einfach 
Frequenzen. Aber noch an- 
dere Dinge kennzeichnen 
Töne. Wenn zum Beispiel 
eine Gitarrensaite angeschla- 
gen wird, entsteht ein Ton, 
der erst laut und dann immer 
leiser wird. Die Anstiegszeit 
und die Abklingzeit beschrei- 
ben den charakteristischen 
Verlauf einer „Hüllkurve", 
die sozusagen das Profil ei- 
nes Tones umreißt. 

Diese Eigenheiten eines 
Klangs können mit Filter und 
Verstärker nachgeahmt wer- 
den. Im Computer sind 
Hüllkurvengeneratoren ein- 
gebaut, die diesen Vorgang 
steuern. Außerdem produ- 
ziert der Computer Töne, de- 
ren Schwingungskurven wie 
Rechtecke, Sägezähne und 
Dreiecke aussehen. Sie klin- 
gen scharf, rauh oder weich. 
Und . der Computer mischt 
sie. Erst ihre Mischung ergibt 
einen originalgetreuen Ton. 
Ein Synthesizer läßt pro- 
grammgesteuert neben dem 
Grundton die entsprechen- 
den Obertöne, die den Cha- 
rakter eines bestimmten 
1 Klangs ausmachen, im richti- 
gen Moment und mit der 
richtigen Stärke los. So ist es 
theoretisch möglich, alle exi- 
stierenden Töne nachzuma- 
chen -auch mit einem Ho- 
mecomputer. Bei Beethovens 
Neunte muß er allerdings 
passen . Michael Dörfler 
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Vernichten Sie die Invasoren 

Für ZX-Spectrum 48 K 
Sie sind mit Ihrem Raumschiff im 
Weltraum stationiert um eine Inva- 
sion der „Gologs' 1 abzuwehren. Die 
Gologinvasoren greifen mit drei ver- 
schiedenen Raumschifftypen an. Mit 
ihren „Jägern", mit ..Raketen" und 
mit ..Lander'*. 

Während der Spielphase stehen Ih- 
nen 3 Raumschiffe zur Verfügung. 
Werden Ihre Schiffe von den Gologs 
gerammt, oder erreicht ein Lander- 
fahrzeug der Invasoren den linken 
Bildschirmrand, haben Sie verloren. 
Für jede Rakete oder jeden Jäger der 
Gologs, die den Bildschirmrand errei- 
chen, gibt es Punktabzüge. 
Neu gestartet werden kann mit. einer 
beliebigen Taste! 

1 REM DEFENDER 

2 LET hsc-Fi 

3 GO TG 9008 

19 BORDER 0' PflPER 0' BRICHT 1= IHK 7- CLS 
15 f.. ET sc=0: LET c«ll' LET schiff =3 

20 PR I NT #0 ; RT 1 . ; " SCH I FFE- " ; seh i ff :• RT 1 , 1 2 ; " HSC= " ; hsc 
€M I FT >:~IHT -:'RND*3>+1 
70 ip y at THE!-! GO TO 100 
80 IF ;<=2 THEH GO TG 200 
■=•9 TF x«3 THEH GO TG 380 

1 LET 3. - 1 !'■■! T ■• P N D :* 2 ':■ • !. E T b - 2 9 
1.1.0 LET al-a: LET bl~h- LET xsIMT CRHD*2)+l 
120 LET b=h-i = IF b=0 THEH GO TO 2800 
1 3 !.... E T a ~ -3. + (. x"= 1 R N D a < 2 ) - •:' •< = 2 RH D .-t > 1 ) 
140 PRIHT RT .3.1. .hl; " ";flT a.b.; IHK 5.: BRIGHT 1;"^" 
150 TF INT «rRND*5>+l=3 THEH GO SUR 888 
160 GO SUR 500 
170 GO TG 11.0 
20G LET **IHT -:' RND:*:21. ":- : LET b«29 
210 LET *l~a : LET bl=ta 
21 5 LET h=b-2 

21.8 TF bOl RHD a=c THEH LET Po=c : LET Pe™fi; GO SUB 1080= LET schiff =s 
c h i f f ~ 1 = P P I N T #0 ; R T 1 . ; ' ' S CH I F F E ~ " .: s c h i. f f = I. F s c h i f f ™ THEH ' GO T 2800 



} 




228 

hB 
23 Pi 
240 
250 
2£0 
30fi 
3 1. 
328 
330 
23 Fi 
340 
34? 



TF b< 



THEH ! ET 



PF? INT RT -?.,h; " " ;RT ai,M.J " 



GO TG 



PRIHT RT al,bl: M " = RT .3.,b; IHK 2: BRIGHT 1. ;■ ■■+■*■■ 

IF INT < PHD*3 VM =2 THEH GO 3UB 880 

GO SHB 508 

GO TG 210 

LET flalHT »'RHD:r21 ::«= LET b«29 

LET j«IHT (RND*20> 

IF .O-J THEH LET x=-l 

IF .3.<J THEH LET w=l 

IF a=J THEH GO TO 31.0 

LET *1.~3.= LET bl=b 

LET b=b-l 
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3 50 I F ' b :: ~ 1. R N D .-! = r T H E N !. E T P o ■■-■■ c ■ !.... ET P e =g : GO S ÜB 1080' („ET s ch i f f » s c 
l-iiff-1. = PF? TNT #0:RT i,0.i ''SCHIFFE-' 1 ; schiff = IF schifft THEN GO TD 2000 

35;? TF b=8 THEN LET sc=sc--5 = PRINT RT a,b.;" " .; RT al,bl;" " = GO TO f, 




353 TF Ä™.i THEN PPT. NT RT al. , bl : " " : GH TU 310 
, 360 PRINT RT al. hl;" " ; RT a, b; TN« 3: BRICHT 1 ; n .^ ■ ' 

370 TF INT CPH0#8 5+1=4 THEN GÜ SUB 808 

330 GO 3UR 500 

390 Gh T'i'"i 349 

500 I FT r\~r. 

5 1 L. F T «:•• ™ r; ■■!■■ i- T N K F. V $ - " z ' ! R N [':> c <' 2 1 ':• -•• < I H K F Y $ = ' ' * ' ■ R H D r > 1 ':■ 

530 TF TNKFY£-'V THEN GO 3MB 6O0 ' 

530 PPT NT RT r!,0;" " ; RT r. ; TNK 7; BRICHT 1i"Ä*sr" 

540 PET! fRN 

60 P L "!" 1 7 , 1 7 5 -■ <:' 3 :*' c > -- 5 = D R ! ::: ! W T H K 6 ; B R I G H T 1 ; < 8 * b > .. ; B E E P „ 3 , 1. = B 
EFP „ R 03 ■ 1.! = J 

6 1 P !.... "!" i "i V ! ::: ' P 1 ; 1. 7 . 1 7 5 ™ '• 3 * c •■ - 5 ; DR R W V E P 1. = '• 3 * h ■' . O = B E E P . O 8 3 ■ 1 @ 

620 TF ":*."i THFH i.ET Po-".^ LET P.?-™b' GO 3! !R 1000: LET sc"* c+h ; PRINT #0 

RT 1 ■. ■"'0; "KrriPF^" :*.r ; " " = GH TR 60 

630 RET'f.tRN 

3 P ! . T •■ S * b '> . 1 ? 5 - •:' S :*: : * ■> 5 

8] PI PPRL! TNK 3 : RRTGHT 1. : •■••••:' Sth ':■ . O : RFFP .. 0O5.. 1 

3 2 P !.. O T i "i V F' R 1 : ■:' 3 * b ':- . 1 7 5 - >'' 3 * a 'J ••••• 5 

3 3 !"'■ R R N VF P 1 = •- >■ 3 1 b "> , : R F. F. P , 5 . 1 

3 4 I F * :: ~ c T H F H ! F T P o ™ r = !... F T P p : ~0 = G S U B 1 00 : L ET' s c h i f f ~ s ch 1 f f - 1 : 
P p f h T # O : R T :!. . .; ' ' 3 C H I F F E - " ; sc h i f f : I F ■". c h i. f f - ; T HE H G T 2000 

P. L ",£i PE'T'MRN 
1 i/ii-iki PRINT RT Pn,pp; IN!-'' ?; RRTGHT Li ":>-;"= BEER „03,-4 
U-i10 FOR 1"? TO 7= PRINT RT Po,Pp-.; TNK 1; BRICHT li"^*-: 11 : HEXT I 
1 030 pp T NT RT P o .- P '■■• : I NK : :: ' .; BR I CHT 1 ; ' ' i X0 " : BEER . 005 .. 1 : BEER .81... 1 
j.835. FOR 1 = 1 TO ?■■ NEXT 1 
1 030 FOR i : ~l TO ?■ FOR I"~3 TO 7 
1 04R pp r NT RT P n , P p .: I N!< I ; BP I GMT' X'^i^ff " : RT P o+ 1 , P ■;=■ .: I NK I ; BR T CHT 1. ■ " ff* ' ' 

" : BEER ., 003 , 30 

I 050 NF KT 1. : NEXT :i. 

1 6 P R I N T R T P n + 1 , P e ; " ' ' = F p I = 7 "[' 
"*&*" NFXT I. 
1.070 BEER „ 005 ,-•■ "1. : FÜR [.™1 TO 5= PRINT RT Po,pp.: IHK 6;">:;" ; NEXT I 

I I -i ;:-; p R T l-f T ! :: ! T P o , P ei" " : P E T I. . I R N 
■5 R m F R i. ~ 1 "[' 2 : B F E P , R 1. , 1 O ; N E X T i 
301.0 !'"T 3 = TF *.chiff=@ THEN PRINT RT 1 1 . 8; "Schade alle J.=».e9er sind 

7 , : r, |.- ,::. -i-, r , p h !•-■ t ' ' i RR T M T ' ' D 1. 1 h 3. s t- ' ' .; :=- c ; ' ' P i. ' n k t e e r r e i c h t " = G TO 
2!>i0 

3 3 O R R I N T R T 1. 1 .. .; ' ' D i .=•• I n •■ .■ "i s n r e -n ?. i r, r| G <=;■ 1 : ?. r> d e t " : P R I H T ' ' D u. h a. s t " .; sc : " 
Pii-nkte- prreirht" 
■=■100 TF' «r>hsc THEN I.ET hsc k ■:=.,- 
3 1 I O P R I N T ' ' H e u. e :~- 3 P i. e 1 '' ? ' D r r i. <=■ c k e ■ i r. H e r ■ '!", ' ' 
PI :?m TF INKEV«-"" THEN GO TO 3120 
■■;:• | ■:> ^ r p j j-..j |< p '-,-' $ - " j " f m E N C !. .3 = GO T 9 4 7 

2 1 4 i ': !.... S : !. ... E T c $ - :: ' ' H a t r« i »"" h G e- f r- & u. t H p r r K a. P i. t .-i >=• y \ , B i. ::=■ z u. n> H a e c h s t p Tim a 1 

TP.r:t.JFSS" 

3145 PRTHT RT 1.0, 0; 

2150 FOR i : = : 1. TO I PN c* 

? 1 6 P R I H T r $ < i. ':• i = B F F P , 5 . - 3 + i = N E X T i 

P170 3T'i"»P 

'^t; : ;i00 Fi'iR i~l "fi"! 1.5= RFRD a* ; P'OR l.s=0 TO 7= RERD a : POKE USR a$+l... a : NEXT 

l" NEXT i- 
•3 1 00 r'jR'T h " :» ,! . . 64 ■ -56 , 37 , B I H 1 00 1 1. 1 1. ■ 1. 27 . 255 - O 
9 1 1 DRTR " b " , , , 96 ■ B I H 1 1 1. 1. 1 000 , 355 , 1 2 - B I N 1 1 1 1 1 000 . 

Computronic ___— ^ ; „„ 
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9 1 2 8 fr A T A " c " , 3 3 .. B I N 8 8 1 8 8 1. 1. .■ B I H 8 9 1 1 1. 1. .■ B T H 8 8 00 1 1 > 255 , B I H 111110 1 
■ BIN 0000111.1 .3 
9130 DATA " d ' ' , 1 3 2 .. B T H 1 1 001 000 ■ B T H 1 1 1. 1 .. B I H 1 1 000 , 2 5 5 .. B I H 1 0111 1 

1 ■ B I N 111 1 0000 .« 6 I H 1 1 000000 

q 1 4fi HR TR " e " ■ 8 ■ 34 . B I H '!. 1. 1 1. 1 00 . 2^5 . 355 , B TN 0111 1 1 00 , 34 , 8 

9 1 5 fr A T A " f ■ ' ' . 3 4 , 5 6 , B I N 1 8 1 1 ■ 2 5 2 > 2 5 2 . B I N 1 00 1 1 .< 5 6 , 2 4 

9160 DR TR " 9-" ■ ■ - d = B T H 800 1. 1 1 1 1. • P T N 88 1 1 0000 ..255 , 8 .. 

9 1 78 fr ATA " !-i " . 3 , 7 . 9 , 254 • 1 26 , 35? -IS- 

9 1 80 OflTR " i " ■ 1 - : '9 . - 26 . 1 52 .. 25 ■ 3 Fi • > 1. 29 

9 1 98 DATA " J " , 22 • P I H 00 1 1 06 1 .■ B I H 1 1 1. 1 1 1 , B I N 81101111 .. B I N 0888 1 1 1 1 .. B IN 

0800 1 1 1 , B I N 06 1 1. 1 1 8 1 ■ B T N 8 1 1. 0800 

■=»200 fr R TA ' ' !•=' " ■ 1 ß - 2 2 ■ B T H 1 1 1. 1 '!. 00 , 255 ■ B T N 1 1 1 1. 1 1 8 .. B I. N 1 1 1 00 1 1 .• B I N 1 1 08 1 

1. 10, £4 

92 1 DATA " 1. " > B I !"■! 1. 1 00 08 00 ■ B I N 8 1 1 f i 1 880 , B T N 88 1 88 1 88 , 2 .. B I N 888 1 1 1 1 1 .. B I N 

80 1 1. 1 1 1. 1 , B I N 8 1 80 1 1 1 1 , B 'f N 008 1 1. 1. 1 1. 

9220 DAT A ' ' m " . 1 ? , B T H 1 1 8 1 8 8 1 , R I H 1. 1 8 8 888 8 , B I N 1 88 1 1 1 , B IN 19111118. -BIN 

1 1 1. 1 1 088 .« B I N 1. 1 1. 1 1. 1 00 ■ F : : T N 1 1 1. 1. 1 880 
9228 fr AT A " ri " , B I N 88 1 1 1 1 1 1 , B I H 880 1 1 1 1 1 , B t N 088 8 1 8 1. 1 , B I N 0088 1 8 1 1 , B I N 8 1 
0000 1 l/i . B T N 8 1. 1 008 1 1 ■ B I H 8 1 080 1 1 • 1 28 

9 2 4 D A T A " n " , B T hl 1 1 1 1 1 8 . 2 5 4 . B T N 1. 8 1 1 00 1 8 , B T H 1001808 ,1,1 , 3 , 1 
9380 BORDER 1 : PAP EP 1. : IHK ?■ 01.3 

9310 RR INT AT 0.1t; TNK 6; RRTGHT 1: FLASH 1 ; 'TIEFENDER' 1 
9315 PRINT 
9 3 2 8 ! ... F T r. $ -- " fr u. h i ■-■ t m i 1:. d e i n e ro R a u. i'm i .=». e 9 e r £.*&,. j. m l.<.l e 1. 1 r a u. m St- 3- t i on i e r* t- 

! ' n'i d i e T 'i"i ■- / a e i o 'n [■■•( !=• !•"■ i " fi '!. o 9 ■=• a b r* 1 J. w ■=• h - r ■ e p n ' ' 
9'' 25 GO 8 OB 9680 
933 I.... F T c $ ~ " S i e 9 r e i. f e ti n"i i 1*. ' 3 V ■-• r : : =. r h i i=- H en «= : - Ti R -=?. u. ro s r h i f f t- y P p *i") 5. n ' ' 



CO Sl.JB 9688 



^Ufli : 



9 3 4 ! ET c $ = " fr '"•• 1"! I : ?. <=• 9 •=■•■ !•"■ vi 

9345 GO SL.IB 9600 

9358 !.. ET c$«"freri RaJopten 4^" 

9355 GO 31 IB 9600 

9 3 f, * I F T c $ ::::: ' ' U ri d H e n !. "' n H i=- r- n .*©-. ■ ' 

9265 GO 3I.IR 9608 

9 3 7 8 ! E T c $ k " F r r k i c h +■ p i '1 "1 I. . •;?. r* d «=■ r d ü? 'n !.... i r\ k p yi B i. I ds.c h i r- rur ••■?. n d s. o h a s- 1 du d 

•3. :"■ c - f : ' '! ' -■ ! V 1=' !'"' I i~i h !'"■ P Vi ' ' 

93!75 GO BUB 9688 

9 ' :: ; 8 8 !.... F T r $ -■ " : ; i. >. S P i >? 1 i. ,: " 1"- :; ! 1 1 r h B '-* ►? *n d "=• t ',.' <•? m ti ••?. 1 I. <•? d r "•?• i d •?• i 'n e- r* J .3. e* 9 ?• !■"■ A b 9 

'=• s c h — o s s p ""f n >i p !•"■ G ' ::: - !"■ : i!. r* rn f. I.«J 1..1. i-"- d ^ n ' ' 

9385 GO SUB 9600 

9 :-: 90 f .... F T c $ - " F " & r- - i «"■ d '5' R ■?. ! ; : •? t- ' :::- »" ri •=• r j «?d <=■ 'm •..]-?. 8 9 8 r d? !■*• d '? vi B i l ds c h i r M r •?. 

T' d "-■ r r & i c h t- 9 ;i. h 1:. !=• ■?. p 1. 1 n k t "h. b 7 lj. 9 ' ' 

9:'-! 95 GO SUB 9600 

9400 RR INT ■' "WFTTFR MIT TRGFNTEINER TASTE" 

9410 IF IHKEV*="" TUEN GO TO 941.8 

9415 BFEP -5. 1.0 

9 4 ■? Pi r ! . 8 : PRT N T ' ' S TE L I E P T A3 T E H : ' ' ' P R I N T ' ' a ""= H o c h " 

94>:Pi RPINT "^-Runter" 

9448 RR INT " r M^FEOER" 

9458 RR INT ' 'Zvm 3t arten Taste Dru. ecken" 

9460 IF IHKE"*-"" "IHEN GO TO 9460 ■ 

9478 r:f...3 = PRINT AT 11,1.1.; FLASH 1; M VIEL GLUECK" 

9480 FOR iai TO 25= BEER „ @ 1. . i = NEXT i= CLS : GO TO 5 

9600 PRINT = FOR i>1, TO I...EN c* 

9610 PRINT c$c;i. >.;= BEEP .868, -30+ i : NEXT i 

9620 RETURN 
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Lui der Wurm 

Sie sind Gärtner und müssen ..Lui den 
Wunder wurm", der Sie schon seit ge- 
raumer Zeit ärgert, vernichten. Lui 
aber ist gerissen. Er vers leckt sich 
hinter einer Mauer, wo Sie ihn nicht 
sehen können. Es bleibt Ihnen also 
garnichts weiter übrig, als die Mauer 
mittels einer Laserpistole einzuschie- 
ßen. Erst jetzt können Sie Lui sehen 



und natürlich will er sofort ausreißen. 
Sie dürfen jetzt aber auf keinen Fall, 
einfach schießen. Denn - treffen Sie 
Lui nicht, am Wurmende, sondern in 
der Mitte oder auch am vorderen Teil, 
dann wird er bei jedem 3. Fehlschuß 
länger! Also aufgepaßt! Sie müssen 
ihre Schüsse gezielt auf Luis Wur- 
mende setzen, um ihn zu vernichten! 



Hochk äroP 48 




1- REM 000090800000800000 

3 BP I GUT 1 = CLS 
8 REM x by -.Jens Graefe 

2 s t s 1 6- i ri b e k 

4 PR I NT "Braue h e ri S i e e i ri e S P i e 1 *'n 1 e i tu n 9" 

5 TNPIIT "SPieU.Tileitufl9? <j/n>"= PAUSE 0< IF INKEY1-"J" TH 
EH GO SUB 8600= CLS 

7 IHPUT " S t u. f e v o -n 1 < s c h w e r > bis 6" ■ 1 

8 IF Kl OR l>6 THEN GO TG 5 

9 GH RI Iß 9000 

19 IF PEEK 23568-105 THEN LET 9=9-1 
1.5 IF PEEK 23560=112 THEN LET 9=9+1 

20 IF PEEK 23560=113 THEN LET f=f-l 
23 IF PEEK 23560=122 THEN LET f=f+l 
25- IF PEEK 23560=109 THEN GO SUB 8100 
;?7 priKF 23560-0 
29 BEER .01,20 
39 LET c-c+< INT CRND*3 V>-1 
32 I. ET b=b+ 1 t<. b=0 >- 1 *< b=32 ) 



GO SUB 8000 
GO SUB 800Ö 
GO SUB 8008 
GO SUB 8000 



-.}• ■ 



LET c~c+ 1 %<. c= 1 :- 1 %<. c= 1. S ) 



40 LET cK*+32*<ek=~l :0=c 

50 PRIHT RT d(b+32:+Xes="l ::■>.■ b; !l " RHD HOT RTTR CcKb+32*<:es*-l >),b>104 

55 IF CODE SCREEN*' < c , a >=32 THEN PRINT RT ca/ü 1 

70 LET a=a+ek = LET b=b+e:=. 

75 LET ek=ek+2*C 3 = 1 )-2*( 3=31 ) : LET es=es+2*<b=l >-£*<b B 31 > 

80 GO TD 10 

7999 REM **Rnfari9 d#r- Unt er Programme**** 

8 00 LET 9=9+1 * ( 9 = > - 1. * < 9 = 3 2 > 

8005 let r-r+ 1 #•: f =0 >- 1 *( f = 1 9 > 

8007 BEER ,. 1,6 A ^_ 

8010 PRINT PRPER 3.:RT fl,0.; n ";RT 0,91.:" ";flT f,0.i"^^ RT 0,9.t"l''■ 
8020 LET f1.=f = LET 91=9 

8099 RETURN 

8100 LET h=( 9*8 >-56 •• LET i=< < 2W >*8)-16 
81.05 LET hl = 193-«: 9*3) 

8110 RLTiT 59,19= DRRW .OVER l.;h,i= PL.0T 196,19= DRRW OVER 1 J -h 1 > i 

:-:115= FÜR ::,:=1. TD 10= BEER .,002,40= NEXT x 

R12R PI HT 59,19= DRRW OVER l;h,i= PLOT 196,19= DRRW OVER l.i~hl.. i 

8130 IF RTTR < f. 9)= 104 THEN PRIHT RT f,9;" "= GO TO 8150 

8140 IF RTTR (f,9)=120 RND CODE SCREEN* Xf,9>=0 THEN GO SUB 8200' RETUR 

H 

8150 LET ,i-,i + l 

Computronic ' ■■■ 
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8160 IF j»3 THEN LET b*b-es« LET k=k+l ■ LET J=»0 

8178 IF k>lö THEN LET b=b+**= LET k=k~l 

8180 PRINT IHK 9:> PflPER 0;flT 21,13; ki PAPER 7j " " 

8199 RETURN 

ft20R IF dfb+^*fes=s-nK>f OR b<>9 THEN RETURN 

8210 FOR x=20 TO -20 STEP -1 = BQRDER : BEER .ÖI,k= BORDER 7= NEXT x 

ft£15 PRINT AT d(b+32#<ea=-l>^Sj" " 

8220 LET b~b+es= LET k=k-l 

8230 PRINT IHK 9; PflPER 0; AT 21,15ik> PflPER 7 i " " 

3240 IF k«l THEN GO TO 8380 

8299 RETURN 

8306 LET n=FN U > 

8305 CL8 : GO SUB 8400 

8320 Dflf fl „ 1 > 3 .. . 1 ■ 3 .- - 1 .■ 3 ■ ,. 3 . 

8321 DATA .1.1.-1, 1,-1, 1, .3,-2 

8322 DATA - 1 ,2, . 1 ,"4, . 1 ,6, .4.-10 

8330 PR I NT AT 5 , 5 :> FLASH 1 ; " Herr: l i chen 9 1. u.eck wünsch " ! GO SUB y 400 = 

834 PP l NT AT 10 , 9 ■ ' ' Du h a s t i n ' ' :• n • " S e c „ 9 e w cm ne n " 

83^0 GO SUB 8400 

8360 PRINT AT 1? . R i "Bestzeit ";m$: li "im.:" See. ";PEEK 23767; ". Stufe- " 

8365 IF fl<m AND PEEK 23767 >=1 THEN GO SUB 8500 

ft 37 PRINT AT 1 9 , ; " B e i T 3 s t e n d r u c k 9 eh t s w e i t e r " ■ PAUSE : RU N 

Ä400 RESTORE 8310' 

8410 FOR •<=! TO 12= READ y,z.' BEER y;.2' NEXT x 

8420 RETURN 

8560 PR I NT " D u. h ■?. s t ■ d i e n e<. '. e B e s t z e i t " : B E E P 1 , 1. 

8505 INPUT "Name "; LINE m$ ' 

S506 LET m*=rn*+" " : LET rn$-rn$< 1 TO 5 > 

8507 FOR x = 2 3 7 6 2 T 9 3 ? k f. ■- P K F.. x . C D E m $ ( x - 2 3 7 6 1. > : N E X T x 

8516 LET P 1=1 NT Ov'256 V 

8520 LET P2"-n-(P 1*256) 

R530 POKE 23760.« PI : POKE 23761..P2. 

85.35 POKE 28767, l 

8540 PR INT AT 1 7 , .; " N i 1 1 st Du. s i e absagen' " 

8550 INR UT ' ' . i •?. --' ne i n ' ' .; a * 

8560 IF .3.$= "Ja" THEN SAVE "Wner-mli" LINE 1 

R57Ö RFTUPN 

8 60 R E M * * S P i e 1. 3. n I e i. t 1 1 n 9 :fc :*: 

8610 PRINT "Fol9ende:~. Problem'" 

fi 6 2 PR I N T ' ' S i e s :i. n d G a e r t n e r u n d m u. e s s e n L u i , d e n W u. nd e r w u !■"■ rn '■.■' e p n i c h t e 

8 630 P R I N T ' ' E r '- ' e r s t e r h t s i c h a b e r h i *n t- e r e :i. n e r M -■?. u. er , S i e ro u. e ss e r\ J e 1 7, 

t zuerst die Mauer eins.chies.spri.. d-^rnit Sie L.u.i erst einmal. 2:1.1. sehe 

n hekori'iri'ie'r! 11 

8 6 4 PR I. NT ' ' Ab e r S i e d u e r f en a u. f k *=■ i n e rs F -3, '!. !. n 1 j. r u i l d d r .9. u f 1. o s. s c h i e s e n .• de 

nn a '''l.'-H rd Lui alle 3 Sc hu. esse um ein Glied !. aeri9er„ " 

8 6 5 F : " R I N T ' ' h ) K o e r 1 n e n s i e L u. i n u. r k u.e r z e - r "i , w e n n S i e se i n !.... E T Z T E S G I. i '=;■ d 

"trp-ff^ri. " 
8 fi 6 O PR I NT " E s *3 i 1 1 a '! :: - o ■=■ o ~z u S c.h i e s s e vi , d a s s S i e e r k e n n e n k o e n n e n , w a 
n n d .9. s s 1 c h t b a r e G 1. i ed d a s L e t z t e i s t . U n d d a s. a 1. 1 e s 9 e h t n o c h a u. f ' 7. e i t 



8670 PAUSE 



PR I N T ' ' T a s t e n : " ' " i ■-* P « '!. i n k s ••■" r e c h t s. " ' " ,: i ••■" z " : r a u f --' r u yi t e r " •' ■ ' m =- S c h u s 

Rtii* 



8^B?5 PRINT " A t s o , n u n w i r d s. e r n *. t ! " ■' " ?u. e r s t «=■ i n m a 1 s o v i e 1. M a u e r - 
r k e e i n sc h i e s se n .. d a s s S i e L u. i % i n n v o I '!. d e 2: i rn i e- r e n k oe *n n e n 
8690 PAUSE 0= RETURN 

8998 STOP 

•ijCj q 9 p p (•.■) $ f r •,», f .q •,-, 9 d e r A n f a n 9 s. r u. t i e ne n %% % 

9^00 RESTORE 9000= FOR y = 144 TO 143= READ P$ : FOR x==ß TO 7 : READ z : POKE 
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I.JSR 

901.0 

9020 
'302 t 
9023 

90? 7 
9030 
90355 
9 040 

9044 

90 4 6 
9 RR PI 

90 'S 2 
9054 
905 |: \ 

9060 
9070 

9075 
9 1 00 
9 ! 0:'": 

C|{0S 

91 10 
9120 

9R0 
qQC|Q 



f:HR* m +•:,•, 7 ■ HEXT ;<: HEXT y 

DRTR " □ " , 255 , 255 , B I H 1 1 0080 1 1 .. 1 29 ., 1 29 , B I. H 1 1 0000 11,255 , 255 

DRTR " FZ " , 255 , 1 28 , 1 23 , 1 28 , 1. 28 , 1 23 , 1 28 , 255 

DRTR ' ' ZI ' ' , 255 .. 1 , 1 , 1 . 1 , 1. • 1 , 2:55 

DRTR " -* " f 8 , 4 , 2 , 255 ■ 255 , 2 ■ 4- .. 8 

DRTR ' ' •!• ' ' ■ 24 .. 24 - 24 , 24 . B I H 1 69 1 1 00 1 , B I H :!. 0110 1 .■ 60 .■ 24 

R E M * 1 1 % E i m 1. •=• :». e ri de r fl n f .3. "n 9 sw e r- 1 e f u e r- d i e V a r i ab 1. e ri #* * 

PF AH a , b . c . ek ■ es . f .. f l . 9 , 9 1. , ..' .- !< 

DRTR 5 ■ 1. 5 , 1 , - 1 , •••- 1 , i , 1 , 1 5 ■ 1 5 . , 1 

PI DT 0,0= FOR x"l. TD €•■ RERD y , z : DRHN y , z : HE KT x 

RES TORE 9845 : PLOT 255 .0= FOR x~l TO 6 : RERD y , 2 : DRRW -y .■ 2 : HEXT x 



?.: PRINT PRPER 5;RT y,XJ " 

HEXT x 
NEX'T' x 



DRTR 3 1,15. 28 . .. ., 4 i 1 , . , -4 .. 2 3 .-•'-15 

FÜR y~l fü 17 STEP 2= FOR x~0 TO 30 STEP 

IT '4 + t,yi"X": HEXT ;<: HEXT y 

FOR ;,-^:f. TO 18= PRINT PRPER 3.;RT x,0;" " 

pnp -,^0 TO 3:1: PRJ.HT PRPEP 3; RT 0.. x;" " 

DTM .-K 9 b :< 

PRINT PRPER 3.;RT f , ; "■*" ; RT 0,9.; "4" 

F HR v = 1 T 9 6 : I. . E T d ( x ) * 1 6 : H E X T x 

P P I N T R T 1 9 , '!. ; ' ' W i. j. r m «. e 9 m ■» *n t p ' ' 

PRINT PRPER 0; IHK 7.;RT 2t,15 = k 

LET n>™256:-t:PEEI--:' 23760+PEEK 23761 

FOR x=23S72 TO 39674 : POKE x,0= HEXT * 

!. FT mS=" " 

pnp v^?;^?^? TH 2:~:7bb: !. ET mSCx-23761 )==€HR$ PEEK x : HEXT x 

DFF FH K ■::';-=== INT << 65536*FEE!< 23b74+25e::-t:PEE!< 23673+PEEK 28672 V50 ':< 

BFEP 1 .■ 10 

RETURN 

PP I N T -:' PE PK 23: 64 1. + ?^ 6":*:PEFK ; :;: ' 3642 -P EEK 2 3635-™256:*:PEEK 23636* > -229 
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Altern. Zeichensatz 



Alternativer Zeichensatz 

Haben Sie schon einmal mit dem Ge- 
danken gespielt, auf Ihrem ZX Spec- 
trum mit. einem anderen Zeichensatz 
zu arbeiten? Wir finden beispielswei- 
se die Kleinbuchstaben von Sinclair 
nicht besonders schön und waren be- 
geistert, als wir im Handbuch lasen, 
wie einfach es ist, einen alternativen 
Zeichensatz einzuschalten: in die 
Systemvariable CHARS (Speicher- 
steilen 23606 und 23607) braucht nur 
die Adresse des neuen Zeichensatzes 
gepoked werden. Doch zuvor müssen 
in mühsamer Tipp arbeit die neuen 
Zeichen definiert werden. 
Der ZX Spectrum-Zeichensatz, der 
im ROM gespeichert ist, umfaßt alle 
Zeichen mit den ASCII- Codes 32 



(Space) bis 127 (Copyright-Symbol) 
und ist 1024 Bytes lang. Jedes Zeichen 
ist in einer Matrix von 8x8 Bits, d. h. 
in 8 Bytes, definiert. Vor dem ersten 
Zeichen (Space) befinden sich 256 
Bytes mit dem Inhalt 255. Wollen wir 
einen eigenen Zeichensatz benutzen, 
müssen wir ihn im RAM ablegen und 
darauf achten, 'daß er den gleichen 
Aufbau hat. wie der Original-Zeichen- 
satz. 

Das abgedruckte Programm veran- 
schaulicht, wie in DATA-Statements 
ein Zeichens atz definiert wird, der zur 
Darstellung von Schreibschrift be- 
nutzt werden kann. An Steile der De- 
zimalwerte können Sie auch, wie im 
Handbuch zur Definition der ..User 
Defined Graphics >- dargestellt. Dual- 



} 



zahlen mit der BIN-Funktion einge- 
ben und dadurch das Bitmuster der 
Zeichen verdeutlichen. Die neuen 
Zeichen werden oberhalb von 
RAMTOP gespeichert, so daß sie vor 
dem Überschreiben durch Basic-Pro- 
gram geschützt sind. Das Programm 
läuft auf der 16K- und der 48K- 
Version des Spectrums und legt den 
Zeichensatz so ab. daß auch noch die 
..User Defined Graphics" benutzt 
werden können. 

Die Möglichkeit, mit dem Spectrum 
Schreibschrift darzustellen, ist sicher 
nur eine reizvolle Spielerei. Doch Sie 
können ja jederzeit zwischen dem ei- 
genen und dem originalen Zeichen - 
satz durch entsprechende POKE-Be- 
fehle umschalten. 



SPECTRUM 

FOR ^^^ 

YOUNG CHILDRENH^ 



COLOURFUL FUN EDUCATIONAL GAMES FOR 2 to 8 YR OLDS 
WITH SÜPERB GRAPHICS. SOUND AND ANIMATION 



SHAPE SORTER ieM8k 5.25 
3 ammated programmes to airl shape 
I recognition Observation and size sorting. 

JCOUNTING 16 48k 5 25 

I 4 g.-ades Programm es good as a firs; 
, introduction to numbcrs 

ALPHABET <ekor49k 5.25 

Füll screen pir:tures for each letter. 
with an Option to present lower case. 

ADDING & SUBTRACTING 

IB. '48 k 5.25 
3 ammated programmes irnroducing adurny 
an es subtracting. 



*Sff 



NEW 



PATH FINDER 16 /4ök 5.95 

4 Compelling grade d games nased on rnazcs "o develop planning and 
forwarü thinkmg. A tiifferent puzzle üveiy time on each Programme. 
Each of the programmes appeals to children ovcr a wide age fange 



WIDGIT 

SOFTWARE 



48 DURHAM ROAD. LONDON N2 9DT 



5fc>}:^ijc^^^^^%^:^^:^^^>j:^^^^: 
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0>REM Programm zum Er st© II ©vi 

e i n *=■ s a 1 t e r n a t. i v e rt 
;.?eirhf?ri£3tze=. x 1983 Fl, &M- Scholz 

10 REM RAM Priiefe-n ■■■ 16---48IO „_ , ^ , ^__ 

20 IF PEEK 23732+256*PEEK 23733=65535 THEN CLEflR 6399y ; LET char*6400 
@ : GO TG 40 

38 CLEflR 31.487= LET char-31438 

49 REM Zeichensatz laden . 

4 5 C L S : PR I NT Fi T 10 .• ■ ' ' H e u. e r Z e i c h e n sa t z w i r d 9e l a den . "...-"Bitte wart 
er.. ". "7", , = POKE 23607,250 

50 FÜR x-char TD char+255 : POKE x,8 : HEXT x 
60 FÜR ;<=char+256 TD char+1823 STEP 8 

65 READ a* = PRIHT a$: 

7fi FÜR y=x TU x+7 ; RERD a : POKE y..* : HEXT y 

30 HEXT x 

90 BEER 1 ,1 : CLS ; POKE 23607.-60 
1 R EM B e d i e n u. n 9 s a n 1 e i. t u. n 9 ■„,-,,,-,* 

105 -POKE 236Ö7, IHT ( chai-x256 ) = PRIHT TAB 7; "Bedieriu.'ri9s.artleiturt9" i OVER 

l 'ul\ PRINT flf ?7R7»r;ph^"fiTe bitte er.v" = POKE 23607,60= PRIHT "POKE 236 

1/17 .'"; THT .'riw-x?^':.: priKE 23607. INT tchar/256>= PRIHT RT 5^9; "Das liefer 
t. Ih.-^-r, dp-r« neuen Zeiehensatz = " j RT 7,0.- GO SUB 200 

*1?0 PRIHT RT 11,0; "Mit dem Befehl " ; = POKE 23607,60= PRIHT " POKE 23607 
, 68 " : pf'ik'F 23687 . I NT ( r h* r/256 ;:■ : PR I NT " w i r d der norma l e Ze i chensatz 
Mieder eingeschaltet =" = POKE '23607, 68= GO SUB 280= POKE 23607, IHT <char/ 

256 '■■ 

■{■"!f"i ppt NT RT 1ff.fi; "iini den Zeichensatz zu. sichern, war de ".; : POKE 23607 
lfi 0: PRIHT "RRMTHP » ; = POKE 23607, IHT ( charx256 > : PRIHT "auf ".- POKE 23 
£07 . fifi : PPT NT rh^-1 ; ■ POKE 23607, INT ■:: char/256 > : PRIHT " 9esetzt. " 

140 PRIHT #F1 ; RT fl.Fi;"D*=-r Zeichensatz kann mit"' POKE 23607, 68 ! PRINT #0 
iTflB 5.; "LORD name CODE " ; char i " , 1824" = POKE 23667, INT < char/256 > = PRINT 
# ; " a u. f B a vi d 9 e s P e :i. c h e r t w e r d e n, " 

1 5 8 ' P K E . 2 3 687 , 6 : P fl U S E : S T P 

?flp REM Anzeige Zeichensatz 

210 FOR x-32 Tu 127= PRIHT CHR$ x; : HEXT x 

220 RETUPN 

1 8 REM Z e i c h e r i s a t z "Sc hr e i b seh r i f t " 

1 8 1. DRTR " " .i 8 , 8 , , , , , , 8 ;.;■ ,.. 

1 82PI DRTfl " ! " , 1 6 , 1 6 , 1 6,16 , , 1 6 , 9 , J ^C)'fi< ,. * c . 
1 030 DRTfl ' 36 ■ 36 , 8 , 8 , 8 , , 8 , 8 v , , ' ''■ & " \. ■>-• . ""'<* 



"•»<,-■* 



1 840 DRTfl " # " , 36 , 1. 26 , 36 , 36 , 1 26 , 36 , 8 , 0. < ?-*- . . '^°^";f- /. ""^v 

1 c i DRTfl " $ " , 8 , 3 8,40 .. 2 8 , 18,6 8 , 3 , 8 l? . '" : ^ c --a ;:<< ... * ' '"' > ", "'"-S-t + " '^'H^ 

1068 DRTfl "^",93, 180,8, 16,38,78,0,0 ^^f<^J^^<-- K ,^-Q^ .,, *^<^ 

1.070 DRTfl "!?,", 16,40, 16,42,68,53,8,8 . , "^-^^/'r^^ o, "'"-A . *% 

1 088 DRTfl " ' " , 4 , 3 , 1 6 , 8 , 8 , 8 , 8 , 8 .>.,, -<~t "^-^P^y * ■■/. ' '" J "'-.',- / ^^ 

1 090 DRTfl " i " , 4 . 8 , 8 - 8 ,' 8 , 4 , 8 , 8 '"-^7^ ' -< ^ ^*<.ffä jT~ . . ^' -^ 

1188 DRTfl " >'*,32, 16, 16, 1.6- 16.32.8,8,;,' ~'-;<e^. % K " "' l <^'o-.^-7 ■, ^ ,.. 

11.1R DRTfl "*", 0-28, 8, 62. 8, 28.8,0 ■£■$&£$*.?. ..e" . ^'^ ^ " A <>.^ °£\/ <t * ' '~-'<o n 

11>'8 DRTfl " + ",0,8,8.62,8,3,0,0 -,, '" L c.r^/7^?^ 1 * - ' '^C '*% * J* . t "^ 

1 1. :-:0 DRTfl " ■ " , 0, 8, 8, 8, 8 ■ 3, 16 . 8 +.£',* .., " - /■' ■^Hi*'*'*^-*. *& H '''^J^f.: . 

11.48 DRTft H - H , 8,8, 0,62, 8,8, 8,8 '": K -'~C-'': ..." '• ? '"/r ; ^'/"'' ! "^^^'' - v ''^r e f-'^-- 

115« DRTfl ",.",8,8,8,8,24.24.0,8 ' ^4;S.....,- " A ^^^^^S ö " -t/^' ? 

1 1 60 DRTfl " -••• " , 2,4- 8 , 1 6 , 82 , 64 ,8,0 ^ i ^f.,,, 'o^pg-^ ^ ***£>, Ä "' ^ 

1 1 78 DRTfl " " ■ 24 , 36 , 36 , 36 - 36 . 24 ■ 8 - 8 "" ^ X'--,.., ** ^. r "t,'fi >* *" t £' e 

1. 1 ff 8 DRTfl " 1 " , 24 , 48 , 72 , 8 , 8 ■ 8 , 8 , 8 "*'<£'"%. " '■ G'.';; tJ --J$'..'ä . 

1 1 90 DRTR " 2 " , 24 , 36 • 4 , 8 , 1 6 , 62 , 8 , 8 e O &«. " ''■'■<: ',;'> }■ ,/< • ^ . 

1 200 DRTR " 3 " , 24 , 36 ■ 3 • 4 , 36 , 24 , 8,8 " :s? ^ " s K- & " "^ r'/^ /' r 

1 3 1 8 DRTR " 4 *' ■ 24 • 48 . 72 ,126 , 8 , 8 , 8 , 8 * Ä <i ^--^ " % """^ 

1 828 DRTfl " 5 " ■ 68 . 32 , 56 ■ 4 ■ 4 , 5G , 8 , 8 "^O' 

1330 DRTfl " 6 " ■ 1 2 , 1 6 . 3 2 , 44 ,50,28.0,8 " " " ♦ 

1 7 
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240 
250 

270 
280 
290 
30 Fi 
3 1 
320 
330 
340 
350 
360 
370 
380 
390 
4P1F1 

410 

420 
4: -:0 
44« 
450 
460 
470 
. 480 
.49© 

, 500 

.51.0 
520 
53t"i 
540 
550 
560 
570 
580 
590 

600 
61.0 
6? Fl 
630 
6 4M 
650 
S^B 

6 7 Fi 
68m 

690 

700 

7 1 

7 2 Fi 



DATA 
DRTfl 
DATA 
DRTfl 
DRTfl 
DRTfl 
DRTfl 
DRTfl 
DflTR 
DRTfl 
DflTR 
DflTR 
DRTfl 
DRTfl 
DRTfl 
DRTfl 
DflTR 
DflTR 
DRTfl 
DRTfl 
DRTfl 
DflTR 
DflTR 
DRTfl 
DRTfl 
DRTfl 
DATA 
DATA 
DATA 
DATA 
DATA 
DRTfl 
DflTR 
DATA 
DflTR 
DflTR 
DRTfl 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DRTfl 



" 7 " , 60 ■ 4 f 8 1 28 .. 1 6 , 32 .. , S 
" 8 " .■ 24 , 36 .. 24 , 36 .. 3h , 24 ,0.0 
" 9 " , 24 , 36 , 36 , 28 , 63 , 56 ,0,0 
" '■ " , 8 .• .- 1 6 .. , , 1 6 , , 
" ; " , , 1. 6 ..0,0 , 1. 6 ■ 1. 6 , 32 .. 
"<".. 6.. 4.. 8, 16, 8,4. 0,0 
" = " ,'0,0,62,0, 62,0,0,0 
">",0, 16- 8, 4.« .3, 16,0,8 
"^'",24,36,4,8,0,8,0.0 
" Ö " , ■ 60 , 74 , 86 , 94 , 64 , 60 , 
11 fl " .. 8 .- 20 .- 36 .. 60 .- 1 64 .. 67 , , 
" 8 " , 1 20 , 1 64 , 56 , 36 , 1 62 , 1 34 . Fi . Fl 
"C".- 152, 164, 168, i 12,34,28,0/0 
" D " , 1 20 , 1 64 , 34 , 34 ■ 226 . '32 .n.Pi 
" E " , 1 24 , 1. 62 , 56 , 32 . 34 . 2« . . PI 
" F " ■ 1 24 .. 1 62 , 56 .■ 32 , 1 60 , 64 .. 8 , 
" G " .■ 28 , 34 , 32 , 44 , 34 ■ 30 , 2 , 28 
" H " , 1 02 , 1 65 , 60 , 36 , 36 , 1 02 . 8 ■ @ 
"I", 60, 63, 4, 4, 72. 48.0,0 
" J " , 60 , 63 , 4 , 4 , 52 , 63 , 72 , 48 
" K " , 1 02 .• 1 68 > 48 , 40 , 37 .. 1 94 , , 
" L " , 1 52 , 1 64 , 1 20 , 32 , 22 6 , 92 , , 
" M " , 34 , 54 , 42 , 42 , 1 62 ,65,0, 
" H " , 33 .. 59 , 42 ■ 42 . 1 64 , 63 , , 
" " , 25 , 46 , 36 , 36 , 36 , 24 , , 
" P " , 60 , 32 , 28 . 16, 80 , 32 , , 
" Q " , 24 , 36 .. 86 , 36 , 44 , 27 ..■ , 
" R " , 1 20 , 1 64 , 56 , 40 , 164.66 , 8 , 
11 S " , 1 2 , 82 , 68 , 1 6 , 1 44 - 9f=; . Ft . i"i 
" T " , 1 22 , 1 48 , 1 6 , 1 6 , :!. 44 , 96 ,0,0 
" U " , 68 , 1 64 , 36 .. 36 , 36 , 26 .. , 
" V " ■' 65 , 1 62 , 36 , 40 , 48 , 32. , , 
11 W " ■ 65 , 1 62 , 34 , 42 , 54 , 3 4 , , S 
"X. " , 68 , 1 70 , 1 6 .. '!. 6 , 1 70 . 68 , 8 , 
"V " , 34 .- 82 , 1 8 , 1 8 , 1 8 , 1 2 , 34 ■ 28 
" 2 " , 1 24 , 1 36 . 1. 6 . 32 , 66 . 252 . @ , 
"t" • 1.4.8, 8-8 ..8. 1.4,0,0 
J "■-.", 8,64, 32, 1.6,3,4-0, 
"T*, 1.12, 16- 16. 16. 16, 112,0,0 
"'"•" . 16,56-84. 16. 16. 16.0.0 

" "■,0.0,0,0,0,0,255.0 

'"••", 14, 16, 1.24. 1.6- 1 1:-:, 46, 0.0 
" ■?. ",0,0 .i 28 , 36 , 1 00 .. 1 55 ■ , 
" b " , 32 , : : : 2 , 56 , 36 , :' : : 6 , 2 1 9 , , PI 
" c " , , , 28 , :' : :2 , 96 , 157,0,0 
"d "..4.4. 28, 86, 1.00, 155,0,0 
V" -0, 24, 36,56-32 -221 .0. 
"f ", 12, 1 
"9 ",0,0, 24, 3 6, 36 




'^M DATA » » n-'^ y *34.4fl', f^'J*:^© 
: ;;'7h o.ATR »i«. 'f.? ' 4 *-' 48, 4^ ^ '^^S 

" ; '- ; B drtm » r :„ ',r-'20,24, ^ ■';;'.:;■' .f-;''-' 0,0 

^ DATA 1 .--/^'^a.ft4oh^' ^ 
1 '■■' 1 n ritj-r," ■' -'■■ H , -"-p -, , ;; ■■■' ' <■■■■■£ c , H , ß 



1 7~ 
1 78P 
1 ??t 
I80f 



t::-,- ... ::; ■ ' J . ■...' .• , f-, , 4 

vg .;,■■■ l ; ^.< 0,0. 

6,56,32,221,0,0 ^^0 DATq ..'„■' ?■' 3R - 8 . Äi','!',? ';,:'?' 01 

13- 28,48 .228, 16 ■ 16 }*?& DRTr .,.'■ „ '^ *> 3S, 56, ^'l^' ■ 
.36,36 = 228.4,56 ??0 DATA 'V. '^^^...^^.'^^-e 



::40 data «:«'^?'£e, 

^ DATA '.;■„';:' "^^6, 

^60 dato ,;,„';: 
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* 4 ©0 data ...;„ • ?■■ ö • 54 . fl , ^a .;,;'; Ö.. A 
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Looks Like an IBM " 
Works Like an Apple 



To a land where fruit ^^ and fiowers 7 ,~. a ., 
supreme, comes the awesome power of the 
Wildcat to challenge their supremacy. 

Wildcat is a sleek styled mobile Computer 
designed for your vehicle, boat or aircraft. It 
looks like an IBM PC™ and is fully Software 
compatible with the Apple I!™ product line at a 
list price that would put a smile on the face of the 
most frugal Computer buyer. 

But price isn't everything. All those features that 

would cost you hundreds ~ 

of dollars extra fr-om our 

competitors, come 

Standard with Wildcat. 

Let's compare some 

of these features: 




•Computer plus one disk dnve 

Warning: This equipmenl is exempt from compliance with FCC - testing 
requirements pursuant to 47 CFR 15.801 (c) (1) 
Operation of this equipmenl in a residential area may cause interference. 





Apple Ile 


Wildcat 


Detachable keyboard 


No 


STD 


Füll numeric key päd 


Option 


STD 


Füll functions keys 


No 


41 ' 


Built in disk Controller 


No 


STD 


Parallel printer port 


No 


STD 


RS 232 serial port 


, No 


STD 


Game port 


1 


2 


RGB video out 


Option 


STD 


Composite video 


STD 


STD 


RF video for TV ■■•:.- 


Option 


STD 


CP/M 


Option 


STD 


Hi Res graphics (6 color) 


STD 


STD 


Low Res graphics (16 color) 


STD 


STD 


64KB memory 


STD 


STD 


Half high disk drives 


No 


STD 


Converters for vehicles, 






boats, and aircraft 


No 


Option 


Aluminum carrying case 


No 


Option 


List price 


$1940* 


$1099.00* 



For more Information on the all new Wildcat, see 
your local Computer dealer or call or write: 

COMPUTER AND* 

PERIPHERAL PRODUCTS 



an 



1530 S. Sinclair 
Anaheim, CA 92806 
(714)978-9820 



IBM is the registered trademark ot International Business Machines Corp. 
Apple is the registered traöemark of Apple Computer. Inc.' 
Apple li is the t rademark of Apple Computer, Inc. 
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VC-64 



Autostart 



1- 



Autostart 

benötigte Hardware: CBM-64 & Floppy 

VC 1541 

Mit diesem Programm können Program- hinzufügt. Diese Zeile verriegelt die Das MC-Programm bewirkt nun die Wie- 

me auf Diskette in Autostart-Programme RUN/STOP und RESTORE-Taste und derherstellung des normalen INPUT- 

umgewandelt werden, die nach dem La- veranlaßt den C- 64 dazu, in den START- Vektors. Anschließend wird der Befehl 

den automatisch starten. Zustand zurückzuspringen. RUN simuliert und dadurch das Pro- 

Das Programm erzeugt auf der Diskette Durch den Zusatz l ,l l beimLOAD-Befehl gramm gestartet. 



einen Programmfilm mit der Bezeich- wird das Programm ..AUTO NAME" ab Zeilen 

nung „AUTO NAME", welches mit der Adresse 804 geladen. Dadurch wird 0- 100 

LOAD „AUTO NAME", 8,1 zu laden ist die Adresse der INPUT-Routine des In- 

und dann automatisch startet. Die Anfü- terpreters (804,805) verändert. Sie zeigt 100- 500 

gung eines „ , 1 '* hinter dem LO AD-Bef ehl nun auf ein kleines Maschinenprogramm 

ist wichtig, da das Programm absolut ge- im Tastaturpuffer. 

laden werden muß. Autostart läßt sich Nach dem Beenden des Ladevorgangs 500- 700 

übrigens gut zum Listschutz verwenden, springt der Interpreter nun zu dem Ma- 

indem man dem Anfang des Programms schinenprogramm im Tastaturpuffer. 5000- 6000 

O POKE 788,52:770,148:771.227 anstatt, zur normalen Interpreterroutine. 

10 REM *** AUTO START *** 10000- 11000 

£0 POKE53£80,5sPOKE5328 1,5 



und 



Funktion 

kurze Erklärung 
Eingabe des Filenamens 
Überprüfung, ob das 
File den Anforderungen 
entspricht 

Erstellen des neuen Pro- 
grammfiles 

Abfrage des Disketten- 
Fehlerkanals 
MC-Routine (siehe oben) 



: GOTO 170 



:GET*1 ,A*,B*: IFA**CHR*< 1 )ANDB*=CHR*<8 )THEN500 
PROGRAMM IST KEIN" 



30 PR I NT " ^■»«■■■■■t * * * AUTO START ***" 

40 PRINT"SMMia<CC)B 1S84 BY LIPPE ENTERPRISES" 

50 PR INT " SnBSH ESES PROGRAMM WANDELT EIN PROGRAMM AUF"; 

G0 PRINT'*DER DISKETTE IN EIN AUTOSTART PROGRAMM" 

70 PRINT"UM. ES IST NACHHER MIT a.0AD"CHR$C34 ) "AUTO NAME "CHR$<34 ) " .,8 , 1 

75 PRINT"B ZU LADEN." 

80 PRINT"SB»BITTE GEBEN SIE JETZT DEN FILENAMEN EIN:" 

100 INPUTNS 

105 IFLENCN*) > 16THENPR INT "NAME ZU LANG <MAX. 16 .ZEICHEN) 

110 QPEN1 ,8,0, "0: "+N$+" ,P,R" 

120 GOSUB5000 

130 OPEN1 ,8,0, "0: "+N*+" ,P,R 

140 PRINT"K3AS ZU AENDERNDE 

150 PRINT"PROGRAMM, DAS VOM BASIC-ANFANG AN" 

160 PR INT "GELADEN WIRD." 

170 PRINTTABO0) "KH33ETURN" 
180 POKE19S,0:WAIT198, i : POKE 198 ,0 s RUN 
500 0PEN2 , 8 , 1 , " : AUTO " +M*+ " , P , Ul " 
5£0 PRINT#£,CHR*<36)CHR3K3>; 
525 PRINT*2,CHR*< 128 )CHR*<3 > f 

530 FORX=806TO827:PRINT#2,CHR*<PEEKOO ); :NEXT 
540 F0RX=S28T0895:PRINTtt£ ,CHR*<3£>; : NEXT 
550 FORX=89GTO930:READA:PRINT#2,CHR*«:A>; sNEXT 
560 FORX=93 1TO2047:PRINT#2,CHR*<;38>; SNEXT 
570 PRINT82,CHR*(0); 

580 GETttl ,A*:A*=LEFT*<A*+CHR*<0>, 1 >: IFST< >01HEN700 
530 PRINT#£,A*; SGOTO530 
700 PRINT*2,A*:CLOSE£ 
7 10 GOSUB5000 

720 PR I NT " HBBWIWBIHWWBI TTITTMMmHHWBfrOCH EINMAL? <J/N>" 
730 GETA*: IFA*a"J ,, THENRUN 
740 IFA*="N"THENSYS64738 
750 GOTO730 

5000 0PEN3,8, 15 s INPUT#3 ,C*,D*,E*,F*: CL0SE3 : CLOSE 1 
5005 IFC*« »00 «ORC*= "01 "THENRETURN 
5010 PRINT"göaDISK ERROR :gil"C*" "D*" "E*" "F* 
5040 0PEN3,S, 15, "SOtAUTO " +N*: CL0SE3 : GOTO 170 
10000 REM MC CODE 

10001 DATA 163,87, 141 ,36 ,3 , 169 ,24 1 , 14 l ,37 ,3 , 169 ,4 , 133 , 198 , 169 ,82 , 14 1 , 1 19 ,2 , 163 

10002 DATA85,141,120,2, 169,78,141,121,2,169,13,141 ,122,2,96 
READY. 




Roadpainter 



> 



r 
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Roadpainter 

Ein kleines blaues Auto ..Der Road- 
painter" treibt in einem kleinen Dorf 
sein Unwesen. Er bemalt die Straßen- 
stücke, die er überfahren hat mit grü- 
nen Kreisen und malt diese bei einer 
weiteren Berührung aus. Das wäre 
natürlich sehr einfach, wenn da nicht 
dieses Auto wäre, das in entgegenge- 
setzter Richtung fährt. Sie müssen 
nun versuchen, mit viel Reaktion und 
guter Taktik nicht mit diesem Auto zu 
kollidieren. Wenn sie es geschafft ha- 
ben sollten, die gesamte Straße zu be- 
malen, wird der restliche Bonus zu ih- 
rem Score addiert. 
In der 1 . Runde sind die Kreise bereits 
vorgezeichnet. Es genügt also ein ein- 
maliger Durchlauf. Mit jeder weiteren 
Runde erhöht sich die Anzahl der Fel- 
der, die noch nicht bemalt sind. Ab der 
vierten Runde erscheint eine voll- 
kommen neue Landschaft mit einer 
noch komplizierteren Strecke. Der 
Roadpainter wird mit einer beliebigen 
Taste gesteuert. Wir wünschen gute 
Unterhaltung! 



Einige Details zum Programm 

Dieses Programm wurde für den C - 
84 + Floppy Disc geschrieben. 
Um es auch mit einer Datasette .spie- 
len zu können ist folgendes zu ändern. 
Zeile 

41005 Open2,l.l,..CARDATA" 
42000 Open2.1.0;.,CARDATA" 
Weitere Besonderheiten 
Bei der ersten Inbetriebnahme des 
Programms muß in Zeile 150 „Gosub 
42000" entfernt werden, da die Datei 
mit der Bestenliste noch nicht exi- 
stiert, und es somit zu einer Fehler- 
meldung führen würde. Wurde das 
Spiel dann einmal gespielt, muß das 
„Gosub 42000" wieder eingesetzt 
werden. Beim Eintippen des Pro- 



gramms sollte man den Zeilen 56100- 
58120 besondere Beachtung schen- 
ken, da diese sehr viele (unvermeid- 
bare) Steuerzeichen' enthalten. Bei 
den Datas auf die vielen Beistriche 
achten. 

Vor dem Starten des Programms soll- 
te dieses gesaved werden, da ein Feh- 
ler in den Datas der Maschinenpro- 
gramme zu einem Absturz des Sy- 
stems führen kann. Nach dem Starten 
dauert es etwa eine Minute bis auf 
dem Monitor etwas Sichtbares pas- 
siert. 

Falls das Programm vorzeitig unter- 
brochen werden soll muß man die Ta- 
sten Runstop/Restorc drücken, da die 
Stoptaste abgeschaltet, ist. 
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1 REM RQ* DP HINTER 

2 R E M < C ) B Y R O NA L D MA YE R 

3 REM THENING £4 

4 REM 4032 THENING 

5 REM 

6 REM MADE IN RUSTR IA 
~? REM 

ISO V=53£4B:BI=V+33!RA=BI-- 1 ; 3=54272 : F= 1024 : D 1 =£OB00 : K= 1 

105 P0KE733,5£s FCKE5S,56 

110 POKE2040,£55sPOKEV+E9 / 1 

1 15 POKEV+33,7: FOKEV+40 , 3 i POKEV+4 1,14 sPOKEV+34 ,B : POKEV +35 ,3 

1 E8 DI MML\ 19*, MH ( 1 3 J , MF< 1 3 > , F LK 16?, Nft *C 1 6 > 

125 FÜR 1 =0TO5 : READB< I ') ,C< 1 > ,D< I ) , S< I > : NE/XT 

130 C ORI=0TO3 5READSSC I ; : NEXT 

135 DATA-40, 1 , -6 , 15 , - 1 , , -3 , 13 ,40 , 1 ,8 , 1 i , 1 , ,6 , 14,-40, 1 , -8 , 15 , - 1 , , -8, 13 

140 DATA£48,£63,£83,3 16,346,37e,406,436,466 

150 GOSUS60O30J GOSUB4E0S0sGO3UBS3Oae 

5000 POKEBI ,S:ROKERA,S 

5010 PRINT"UKSH"TABC 15) " RGADPA INTER " s P0KE53E7E ,30 

5083 GETAS s IFA£= r ' -; "AND;« 13THENX-X + 1 : GOTG3SS0 

5027 I F Y > 1 QTH ENY = s G S UB530 : GO 7050 OS 

502C IFA*= " - "ANDX MTHENX = X -1 i GOTQ502O 

5035 IFft#-CHR*(13>A ND NB *< X ) > " " A ND NB *< J< ) < > ,v ? " THE NNA *< O > = NB$C X > : GO TO 1 O 00 

5O40 I F A * : > C HR$< 1 3 J THE NY = Y + 1 : GOTO 5 O £5 

5045 I NF UT " H3M*£ NTE R YO U R NA ME " ; NB Sk X j 

5047 I F NB*C X 5 = " " THENPR I NT " rm " ; s GO TG5 9 4 5 

5050 NA *fß)= NB *f X > J G TO 1 O 

10000 CA =3 ?M"3 '• AG-0 :PU=Q.'SR=S 

10003 GQ3U£55O00 

1S00E FOKES042 , 13 : POKE204 1 , 14 

10007. POKEV+4 , 143 s ^OKEV+5 ,53 

10OO3 POKE-V i- E , 1 5 3 : P OKE V +- 3 , 58 

1OO03 TFM>0THENGOGUB50000 

10010 p = 1 : P0= IB^S ; PQ= 1031 

1001? POKEV+30,0spOKEF + 753, 47+CA5 Q~3 

19014 P0KEF+353,43+AG 

100E5 IFPEEK< PO +B 1 ; P) ) >46THENP=P+1 '■ P0KEE04E ,SC P ) : IFP>4THENP=1 

1S027 IFPEEKC V+30*==GTHENE50S0 

10030 P0=P0+BCP5 

10033 IFPEEKC PQ+B< Q ) > >46THENG=ü- 1 :POKE204 1 ,S< Q ) s IFQ< 1THENQ = 4 

10035 SYS3ES33 

10036 IFPEEKC PO K 48 THENSY3 363 ES : PO KEP D ,PEEKC PO > H :SR-SR+1 :FU=PU+1 : GOTO 1 0053 
10O40 3YS3SSS6 

10053 I F SR =3 S < AG > THE N£0 O 

10Ö55 IF< PEEK>: PQ+B< Q-i > > -BGRFEEIU PG+BC Q + i J 5 =0 JTHENGOSUB 150SS 

10060 PQ=PO*BC CO ;SYS3£S39:SYS36S86 

10061 IF°EEK.; 2ö3>=G4THEN10325 

10Q6E IFTEEK< PO +BO~ + l V ;=OTHEi-iW-P+l s GOTO 15O00 

13GS3 IFPEEK< FG+B< P-l /j =0THENW=P- 1 :öOTO15GB0 

IBS^O GOTO 10035 

1 50O0 POK.EY +4 >C • lv! ; ,PEEK< V +4 +C< N > ; +DC U .) +E : PC =P0 +BC N5 *£ s GQTO 10Ö25 

15020 I F R r-JD C 1 > ; . 5 TH E NR E TUR N 

15025 2=Q-1 s IFPEEKi FQ+E< Q+l > ^ «0THENZ =£3 + 1 

15030 FOKEV+£+C< Z 5 ,PEEK< V + £+C( Z \> j f-D< ^ ? +2 : PQ=PGMB( 2 J *£ : RETURN 

£0000 3R=0SBO = 0:FORI=0TO3:EO = BO+C PEEKC 1573- I J -48)* 10 t I '• NEXT: AG = AG + 1 

£0002 IFBO=0THENM-8 5FRINTX$"BNO BOf --US " : GOSUB3E00O : GOTOE0OOS 

E0O03 P OKE ? 3 354 , 3 1 ■ F R I = 1 TO B 

E0f?C4 BQ= J -BQs IFDQ- 1THENSY33B338 

2O005 FU=PUi J !SY=36e86sä'i 338864 : NEXTs P0KE36354 , 1 1 
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E000F- 
£0003 
300 IE 
300 13 

£S0 15 
£3000 
E3G15 

E30E5 
£5000 
£5035 
E590E 
£5007 
£50 10 
£50 13 
£5030 
3900O 
300 1 
300 15 
3E030 
3S0O3 
3 £00 5 
330 10 
3E0 15 
40OO0 
40010 
•500 1.5 
40030 
^0033 
40035 
4S030 
30840 



F R I NT!-: $ " 3 ROUND " > FiS + 1 

M=J :GOSUB3E0OB 

TFri6.,-'3< MNT< flG/3 JTHENEQS 15 

PP I NTX * " !^ O t JU E CfiR" 

GOSUE3£000sCä~Ch+l 

GOTO 1S003 

FO^' I - 1 TO 1 5 ä I FFU >PLK I > THENE30E0 

NEXTI 

LF=I SFORI I-14T0ISTEF-1 

FLK I I + 1 > -FUC I I > J NA*< 1I + 1 ) =Nfl*< I 1 > = NEXT : PLK I 5 =PU s NftSK I > =NA*< > : RETURN 

FOR I =GT0E4 : POKES+ I ,0 : NEXT 

POKE'J+30 ,0 :CA=Cfi- i 

POKES+ 1 ,30 : POKES +5 , 15 : FOKES +4 , 1E3 

FORI -• 15TO03TEP--25 FOKES +24, I :NEXT . 

p KE S + 4 ,'e f F OR I =■ 1 TO 1 000 - t4E X T 

lFCft=0THEN3000© 

M_gs GOTO 1OO0S 

PRr4TX* ,: aiGAME GVER " 

M=S^(30SUB3E00S 

OO3UB-23000 5 GOSUB40000 : POKE i 93 ,0 : Wfi 1T19S , 1 : GOTO5000 

FOR I = 1 48 TOS 10STEP . £5 : FCKEV , 1 : NEXT 

I FM=0THENFOR I = 1 TGE000 > NEXT J GGTG3E0 1 

GO3U35G000 

FOR I =E 1 0TO 1 43STSF - . £5 s PGKEV , I : NEXT 

PRUiTXf'a J ^ RETURN 

FR INT" -J» s POKEV+E 1 ,0 sPOKEB 1,5: PCKERA ,£ s POKES 48 ,6 
PP Tr-.iT " SttTOWISM ROmDFMXNTER HIGHSC0RE3 3" 

PR T NT " HHT s TB = i ! FOR I = 1 Tu 1 5 

IFI := 3 THE MTB =3 

I F LP - I THENr OK E 6 4 S , E 

PR JNTTflG'* 4 i TE } I " H +■ 1! f 1 4P. -St 1 '> i 

PRIMTT^Ea 33-LEN( STR3C PLK I > / ) )PLK I J "3" :NEXT 

IFFLK 15 5 •PUTHENRETURN 

SM" 



1005 0FEN£,8,£, 1, e:CriRDfiTA 
™ORI=1TO10 
IFNB4T-: I >-■' "THENNB*t I 



4 1010 
4 10 J 3 
4 1015 
4 1030 
4 1033 

■X 1030 
4 1 035 

~ 3300 

4 3C5 10 
42015 
43030 

4E030 
43^35 
50000 
503 1 O 
500 15 
50G30 

50030 
"50G35 
53040 
5O045 
5O05O 
50055 
50035 
50070 




FR INTttE ,NE*: I '.- 5 NEXT 

FORI-1T0I5 

I Ff 'A ■£-' I > - :: " THENNrt*< I ) " " ? " 

PF INTHE-NA-K I > 

P R I f JT*4 £ , 3 TR *■•' P U < I ? > 

NEXT s CL OSE E : RETURN 

OPENE , 3 , £ , "Cm RDmTR , S , R " 

FORI=1TÜ10 

INPUTttE ,NE*( I :-- •- NEXT 

F0RI=IT015 

IMPUTttE,NA*C I > 

INFUTttc. ,ft*:P'J( I ?-VftLC A*; 

NEXT s CL03E2 s RETURN 

FÜR I -9TGE4 : FOKES + I , Ö : NEXT 

FOKES +£4, 15 . 

FOKES +5 ,£ i POKES +6 ,£4£ 

POKES + IE, 1 SPDKES+ 13, £43 

POKES + 1 3 ,. 1 £ : P0K.E3 r£0 , Q 

FC P T = 1 TOi '1 : F F: I : 1 Tu 1 3 

FOKES +4 , 33 t POKES + 1 i ,33 • POKES * 18 , 17 

s-ckes,ml-; i:- ;fokes + i ,mhc i ;■ 

P0KE3+7J-1L( I>-3:P0KES^3,MH< 1> 

POKES h 14,0; POKES +15,10 

FÜR i I - 1 TOMPf I > +40 i NEXT I I i POKES +13,0: PÜKES +11,0: POKES + 4 ,0 s NEXT I , J 

FOR I - * TO 4 : POKES + 1 3 , 1 £3 : FOKES +14, £00 t FOKES + 15 ,E55 s FOR I I = 1TO30 s NEKTI I 

POKES + 13 ,0iFORI 1 - 1T0 15 5NEXTI I N-4EXTI 
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5QÜ75 
55898 
55805 

55Ö10 
55109 
56108 
56122 
56123 
56124 
56126 
56127 
56128 
56129 
56136 
56131 
56132 
562ÖÖ 
5780Ö 
57Ö15 
57028 
57025 
57Ö30 
57646 
57Ö45 
57Ö50 
57055 
57Ö60 
57065 
57070 
57075 
570S0 
57085 
57930 
57S95 
57180 
571Q5 
5711Ö 
57115 
57120 
57125 
57130 
57135 
57149 
57145 
57150 
57155 
5716Ö 
5720Ö 
58089 
58815 
58Ö20 
58025 
58030 
58035 
5804Ö 
58045 
5805Ö 
58055 
58060 
58065 
58Ö76 



RETURN 

PÜKEEI, 13:Rük:ERh,8 ; PQKEV+21, 1 =PQKEV, 148 : POKEV+1, 164 

I FflG>2THEHGOSUB57000 : COT 055 1 00 

CO SU B 58800 

POKEV+21,7 

i FPij>0THENPR int "'mmm*im.mMm\ ii trb <. 3 1 > " 1 " 1 m%+f\w2m ■ re' 

RR I NT " 3WP" J TAB < 32 ) " ßESH I GH " 

PR I NT " m " > TBE ■:: 32 > R I CHT* < " 090860 " +M I H$ ( S TR* ( PU il ) ':■> , 2 > .■ 6 > 

PRINT" W .: TBE-:: 32 > i! SBSCÜRE li 



JRH 



PRINT":«",THB'::32) if 
PRINT"ÄM";TflB<32> 
PRINT"«" ; TAB < 32 >" 



TRE (32 

'RECBS; 

TRE-:: 32 

;"RE<32> 



1000800" 

1 S3BQNUS 

11000" 

1 bEEhRS 

103" 

' SHRÜUHJJ 

101" 




| 

H : "l- 

HÖH |- 

■ — T — i- 

H i-rr- 



H 

H 
h 

H 



,«- 



Hi-~/ u "llVl~ l - 



PRINT"MW" 

PRINT""ÄTJ 

PRINT "WH" 

PRINT"M"; 

RETURN 

PRINT"! 

PRIHT' 

PRINT 

PRIHT' 

PRINT 1 

PRINT' 

PRINT 1 

PRIHT' 

PRIHT' 

PRIHT' 

PRINT' 

PRINT' 

PRINT' 

PRINT' 

PRIHT 1 

PRIHT 1 

PRINT' 

PRINT' 

PRINT' 

PRINT' 

PRINT 1 

PRIHT' 

PRINT 5 

PRINT' 

PRINT" «~— ■« — •,— 

IFRG=3THENRETURN 
FORI=lTü30*<RG-3) 
2U=INTCRND< O#320) + 1065 
I FPEEK < ZU > 045THEN57 1 50 
PÖKEZU..44-HEKT 
RETURN 

PRINT"» ■ ■■ — — 

PRINT" 
PRINT" 
PRIHT" 
PRINT' 1 
PRINT' 1 
PRINT" 
PRINT' 
PRINT' 1 



KüMEÜMSälü 



SV'/ /SU -* i -IS-Vs® 

l-SSTtt'"» H— I I-l 

i-l «SKJLJi Har- I---&H: ■->- i i 

MBLJ S H I-l- I» I- I 

I- W Htr-,--Il- l //.-' : /I , \- I ! 

I- S öl ###■ is H i ! 

-- — I-l BiiKfi S ih I- I 

ShSH MK- aSK& ■li" 

- I™ I-l SL.J »r 1 ih- i- 

™.fj-_..j^ ._.„j i)4am l j 1 nn»^ ffi i imNffi' ' fl ' i""'" 'IT """ "iT ""' ' 



l-Ö-l 



-i sr# i 

-I ELL'" 

■I 85 LJ 

- L..__ J 



H 

H 
I 



h~ 



I BUH h 



H l-l- 
I- I '-(&'-- '- 

I- 1- I" 






"1T~ 



H 



f fyym ^ m HW ^i lt 



I 

HS**™ 

H I 

Hl-rikV 



H I-l ?sr##Ti h !• 
HI-IELSL/i Hl- 

h : -i ii> m:m h 

HÖH fflUÜhl- 
PRINT" M-liD ■ Hl- 
PRINT" HM II I- i «-!• 
PRINT" Hl~»li ~~ 1 Hl- 



- r "HUI/V 
■I IISHE^C» 

-iffir#"Hh m..u 
i-i ü3uu %m 
-i SJ i 

-I BöKK» Ü 

-i esi i is~ 

-löK&siic^üaii 



'■'"■T-l ELJ« Hl " 
EOH. 1 Hl II? Hl Hl 



~ i Hil " 

y;/jm hi " 

m hi sa n hi " 

I Hl 3K&I Hi " 

- i hb m&m hi 



PRINT 



I- L 



~i~s&"riri Hi 



Hi gs; 



!--' .*.! 
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DtföfO 

58880 
38085 
58096 

58035 
58037 

5810Ö 
58165 
58187 
58116 
58115 
58120 
58130 
58135 
58140 
58145 
58150 
58200 
59000 
5300b 
59006 
53Ö10 
53011 
590 12 
53013 
53014 
53030 
53040 

60000 

6Ö005 

6Ö010 

66015 

6Q020 
60025 

6Ö030 
6Ö035 

6ÖÖ40 
60041 
60042 
60043 
60044 
6ÖÖ45 
6005Ö 
60055 
60060 
6Ö063 
6U1 m 
68110 
60115 
60120 
60125 
66130 
61080 

61010 

61020 
61030 

6104Ö 
61050 
61060 
62Ö00 
62010 



h I- 
h«- 

Kl- 
h I- 
hl- 
I- I- 

hi- 
hi" 
h 1 — 

hör»- 
I 



SL$*J IK- 



-+-H, 



(...... 



»"^S 



• r -l^/i-J- 

-i afttf^sBrn hi r- .... 

•s gsr~tt##r-'i h - .■„i,.,„ l , ■■ 

■i au**** ji i 



•TT 



■i he-i 



^-; irt- 



"-1J- 



PRIHT" 
PRINT" 

PRINT" 
PRIHT" 
PRINT" 

PRIHT" 

PRINT" 

PRIHT" 

PRIHT" 

PRINT" 

PRINT" 

PRINT" 

IFflG-BTHENRETURN 

FORI=lTO20*flG 

ZU« I NT < RHU < 1 ) #320 > + 1 065 

I FPEEK C ZU ) 045THEN53 140 

PQKEZU,44:NEXT 

RETURN 

POKEBI , 2 = PÜKERfl.. 2 = PÜKE53272, 22 

FOR I «0TÜ24 : POKES+ 1 .■ : HEXT 

F0KE3+24.. 15--P0KES+6..248 

FOR I =0TÜ 1 23 : PR I NTCHR* < PEEK < B 1 + 1 ) ) ; 

I FPEEK ( B 1 + l > -C48THEN59Ö 1 4 

POKES+1 , 100 : PÜKES+4, 129 

I FPEEK < 203 >*60THENPQKES+4, • RETURN 

FORI I=1T033 ■ HEXT : POKES+4, : HEXT 

FORI=1TO1000 : IFPEEK<203)~bÖTHENR£TURN 

HEXT -GOT 0590 10 

REM SPRITEDfiTRS 

BRTR3 , 1 28 , > 1 1 5 , 1 28 , .. 1 63 , 64 , , 25b .■ 1 32 , , 

DRTA, ,,,,,,,,,,, , , , , , , ,,,,,,,,,,,, , .. , 

riflTR112, , ,115, 128, , 173, 128, , 255, 132, , 

brtr,, ,,,,,,,,,,,,,,,,,,,,,,,■,,.. ... , , . 

DRTR28, , 1 127, , .. 127, , , 33, , , 62, , , 22 i , 12 

brtr, .w,,,,,, ,,,,,,,,,,,:.,,,,,,,, ,, , , 

BRTR62 , , , 22 1 , 1 28 , , 255 , 1 28 , , 22 1 , i 28 , , 6 

BRTR,,,,,,,,,,,,,,,,,,,,,, .-,,,,,,,,:,, 

BRTR0, 0, 0, 0, Ö, Q, ü, 0, 0, 255, 25r 

BRTR63, 255.- 252, 63, 255, 252, 28, 

BRTR 28, 6Ö , 56 , 28, 60 , 56 , 63, 255 .. 

BRTR255, 255, 255, ,,,,,,,, , , , 

FORI =0TÜ62 :RERDR : P0KES32+I , fi 

FOR I -0TO62 : RERBR = P0KE836+ 1 , R 

FÜR I -0TO62 : RERBR = P0KE366+ 1 , fl 

FORI «0TO62 : RERBR ■ P0KE704+ I , R 

FORI =0TO62 • RERBR ■ POKE 16328+1 



hl " 



•| h:-l 




>55, 128. 



127. 



:2i, 

,, 1 



128,, 62 



1 , iL O 

6C : i . 



56 



bö,bb 

,'"~ 3 , cLOcii 



54 
31.« 



£48 , 3 1 , 255 ,248 
■ 254 



HEXT 
NEXT 



HRTR23..69,34,20i 



'■;.q 



18,43, 



LÜ«: 



FOR I * 1 TOS : RERBR , £ : H I < I > =fi 
BRTR2, 2, 5, 5, 4, 4,3,1,1,2,3,2,5 
FÜRI*iTÜ19 : RERBR ■ MH( l >=HI <fi> ■ 
BRTR2, 1,2,2,2,2, 1,2,2, .6,. 6,. 
FORI => 1 TOI 3 : REflDMP U ) = HEXT 
FOR I«D-1T0D 1 + 123 : RERBR : POKEI , F 
BRTR147,5,13, 13,29,23,114, 111 
DATA 1 3 , 23 , 29 , 99 , 79 , 80 .• 89 , 82 , 7 
BRTR30 , 97 , 23 , 1 03 , 65 , 77 , €9 , 29 , 
DRTR65, 65, 74, 63, 82, , , , , , , , , , , 
BRTR158, 13, 13, 13, 13, 13, 13, 13, 
IiRTR112,37,33, 101,60 
POKE56334,0: POKEI, 51 
FÜRI=8TÜ1712 : POKEI 4336+1 , PEEK 



NEX 
f I : H 

I ) :: " 

hu: 

6 , 2 

: NE 



, 1'! 
E : l 

d-lou 



■F>- 



5,1 

i>;Ne: 
1,2,; 



', iü0, :i 

: 'i,72,c 



4 i 



12,37 
4,29, 
U4,7 



, 1 05 , 1 1 , 
49,5 



116, 
5^,1 

fo - bö 



13,29, 



j?>, ro,65, 

, , , , , ,20,20,20,20, 

112, 82 , 63 , 83 , 83 , 2£ 



101,1 

3,13, 
,23, 1 
20,89 
, 29, 6 



14,13, 13 
13,29,29 
89,65 
,63, 82 
2,115 



■8+1 > ; NEX" 
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62015 

62626 

62Q25 

62027 

62036 

622Ö8 

62238 

62243 

62244' 

62245 

62246 

6224? 

62243 

62250 

62251 

62252 

62253 

62254 

62255 

62256 

62266 

62272 

62273 

62274 

62275 

62276 

6227? 

62281 

62282 

62284 

62285 

62286 

6228? 

fc'Ii'iiüÜ- 

62283 
62230 
62291 
6*293 
62295 
62238 
62293 
62300 
62301 
62302 
62383 
62310 
62312 
62313 
62315 
62316 
62317 
62318 
62320 
62321 
62322 
62323 
62330 
62331 
62332 
62333 



1 ö I- . 


131. 


2S~> . 


*. l jÖ. 


m. 



POKE 1/ 55 :POKt 56334,1 

PÜKE53272, 39 : POKE53270.. 216 

REflDB 

fl =PEE K ( 6 3 > : I F' Fi ™ 29 OT HE N 63 66 Ö 

FORI-0TO? : P0KE14336+fl*8+I .■ & : RERBB : Ni: 

DRTR255,255, 135,213.. 219, 195, 255, 25b 

BRTR255, 255, 255, 231 , 231 , 255, 255, 255 

BRTR255 ,131,1 87 > 25Ö , 255 ,131 , 

BRTR221 , 187, 131 , 255, 250, 187, 

3JRTR250 , 183,255, 233 , 238 , 253 , 

BRTR250 , 1 3 1 , 255 , 1 39 , 1 9 1 , 1 3 1 , 

DfiTR 1 90 , 1 22 , 1 3 1 , 1 27 , 1 9y , 1 2 2 , 

DRTR,,48,,,,, 12 

BRTfi, ,3,, ,, , 

BRTR132, , , , , ,43, 

BRTR255, 255, 255, 255, 255, 255, 255, 

DRTR255, 255, 231 , 213, 213, 231 , 255, 

BRTR255.-255,231, 135, 195,231,255, 

DRTR85 , 85 , 85 , ö , 255 , 255 , 255 , 255 

ÜRTR60.. 162, 102, 102, 102, 102,60,0 

DRTR255 , 255 > 1 95 , 2 1 3 , 2 1 3 , 1 95 , 255 , 

BRTR255 , 255 , 255 , 0,0, 255 , 255 , 255 
DRTR7 , 3,1,,, 255 , 255 , 255 
HRTR3, 15,63,254,255,55,61, 249 
ERTR > 24Ö , 252 , 255 , 223 , 233 , 1 24 , 252 
DRTR254 , 25 i , 63 , 62 .- 63 , 1 5 , Ö , Ö 
I3RTR127, 255, 239, 254, 252, 240, 192, 
ÜRTR255, 255, 255, 224, 224,225, 227, 



DRTR231 

BRTR233 

BRTR231 

BRTR231 

DRTR191 

DRTR250 

BRTR231 

BAT R, 40 

HRTR255 

BRTR231 

BRTR224 

BRTR231 

IiRTR255 

BRTR255 

BRTR231 

DATR231, 

DRTR7..7 

BRTR255 

ÜRTR255, 

BRTR255, 

DR TR 7, 7, 

BRTR.> , ,, 

BRTR224, 

BATR255, 

ÜRTR255, 

IiRTR255, 

DRTR255, 

I1RTR224: 

BRTR111. 

IIRTR,,,; 

DRTR7, 



134, 123, , , , , 

238 .< 247 } 1 90 .. 2 1 3 , 255 , X 2:3 , 255 

199, 135,7,7,7,7,7 . 

123,131 , 222 , 1 87 , 23 Ö , 25Ü , 237 
1 83 , 255 , 23 1 , 1 90 , 2 1 3 , 1 75 , 1 23 
227 , 225 , 224 , 224 , 225 , 22 V' ! , 23 1 
190.-1 90 , 1 30 , 1 90 , 40 , g 
255 > 255 , Ü , Ü > 1 23 , 1 35 , 23 1 
135,123,0,0,255,255,255 

132, 128, , ', 255, 255, 255 

1 33 , 1 35 , 7 .. 7 , 255 , 255 , 255 
255.-255,9,0, 1, 3,7 

255, 255, 7, 7, 255, 255, 255 

231 .- 2-1* 1 .' iL-.'} 1 , *5 1 , 2-5 I .i 2ö i j 20 ]. 

23 1,231, 23 1 , 23 1 , 255 , 255 , 255 
7,7, f, 135, 139,231 

255 , 255 ', 23 1 '.. 23 1 .'■ 2 3 1 , 23 i '■ 23 1 
255 , 255 , .■ . 1 28 , 1 32 - 224 
( .' < , f', 200 ? 2C*0 .< 20 O 

, i , O , f 

224 , 240 > 248 , 252 , 255 , 255 , 255 

255,255,63,31, 15,7,7 

255 , 255 ,252 , 248 , 248 , 224 , ^24 

255 , 255 , 7 .■ 7 , 7 , 7 , 7' 

*b5 , 255, **4 , 224 , 224 , 224 , 224 

2*4 , **4 .■ 224 , 224 , 255 , 255 .- 255 

238 , 1 53 , 235 , 1 83 , 233 , 253 , 239 

, 128, 192,224 

1 , , , , , 



ÜÜ"! 06202 1 






ÜfiTR? , 7 , i 5 / 3 1 , 63 , 255 , 25 
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62334 DATA224 , 1 92 , 1 28 , , , , , 

62335 DATA255 , 255 , 255 , 7 , 7 , 1 35 , 139 , 231 
62373 DATA , , , , 255 , 255 , 255 , 255 

62408 DATA1 

63000 FORI = 32821T032962 : READA : POKEI , A : NEXT 

63001 DATA234 , 234 , 234 , 234 , 202 , 202 , 202 , 202, 96 , 234 , 234 , 234 , 234 , 232 , 232, 232 , 232 

63002 DATA96 , 1 73 , 249 , 7, 201 ,13, 240 , 20, 201 ,15, 240 , 28 , 201 , 14 , 240 , 36 , 1 74 , 3, 208 

63003 DATA32 , 62 , 1 28 , 1 42 , 3 , 208 , 76 , 131 , 1 28 , 1 74 , 2 , 208 , 32 , 53 , 1 28 , 1 42 , 2 , 208 , 76, 131 

63004 DATA1 28 , 1 74 , 3 , 208 , 32 , 53 , 1 28 , 1 42 , 3 , 208 , 76 , 1 31 , 128 , 1 74 , 2 , 208 , 32 , 62 , 128 

63005 DATA142 , 2 , 208 , 234 , 234 , 284 , 1 76 , 250 , 7 , 201 , 13 , 240 , 20 , 201 ,15, 240 , 28 , 201 ,14 
62006 DATA240 , 38 , 1 74 , 5 , 209 , 32 , 62 , 1 28 , 142 , 5 , 208 , 76 , 1 94 , 1 28 , 1 74 , 4 , 208 , 32 , 53 , 1 28 

63007 DATA142 , 1 , 208 , 76 , 1 94 , 1 28 , 1 74 , 5 , 208 , 32 , 53 , 1 28 , 142 , 5 , 208 , 76 , 1 94 , 1 28 , 1 74 

63008 DATA4 , 208 , 32 , 62 , 128,142 , 4 , 208 , 96 

63020 FORI = 36864T036974 : READA : POKEI , A : NEXT : RETURN 

63021 DATA1 63 , 5 , 1 39 , 36 , 5 , 201 , 57 , 240 , 4 , 254 , 36 , 5 , 36 , 169 , 48 , 1 57 , 96 , 5 , 202 , 76 , 2 

63022 DATA1 44 , 1 62 , 3 , 1 39 , 40 , 8 , 201 , 48 , 208 , 9 , 224 , , 240 , 4 , 202 , 76 , 24 , 1 44 , 96 , 1 62 

63023 DATA3 , 1 89 , 40 , 8 , 201 , 48 , 240 , 4 , 222 , 40 , 6 , 96 , 1 69 , 57 , 1 57 , 40 , 6 , 202 , 76 , 42 , 1 44 

63024 DATA32 , 9 , 1 44 , 78 , 74 , 1 44 , 32 , , 1 44 , 32 , 22 , 144 , 1 62 , , 1 69 , , 1 57 , , 21 2 , 224 , 24 

63025 DATA240 , 4 , 232 , 76 , 78 , 144 , 160 , 1 1 , 141 , 24 , 212 , 141 , , 212 , 141 , 1 , 212 , 169 , 4 

63026 DATA141 , 5 , 212 , 169 , 33 , 141 , 4 , 212 , 96 

READY. 



LASER 




m&^sm'i^&f^ 






•M"*W 



Mi 



^^6^^^UAtf^S 



LASER 110 - 4 KByte RAM. Dieser „persönliche Computer" eignet sich als Helfer beim Studium, am Arbeitsplatz oder 
bei Analysen und Statistiken. Mit seinen Peripheriegeräten erfüllt er alle Ansprüche an einen Borne-Computer. 
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Noha - 2099 

Ein Spiel in Extended Basic mit Joy- 
stick 

Wir schreiben das Sternenjahr 2099. 
Im Sonnensystem XOR bahnt sich ei- 
ne kosmische Katastrophe an, denn 
die Sonne bläht sich auf und schickt 
radioaktive Strahlung ins All, welche 
sämtliche Planeten des Sonnensy- 
stems XOR zu vernichten droht. Sie 
haben nun als NOHA die Aufgabe, 
sämtliche Lebewesen auf den Plane- 
ten zu evakuieren, damit, diese nicht 
durch die Strahlung getötet werden. 
Steigen Sie nun ein in Ihre TI 99/4 A 
Arche, schieben Sie das .Extended 
BASIC Modul in den Modulschacht 
und nehmen Sie den Joystick zur 
Hand. Es beginnt eine abenteuerliche 
Rettungsaktion im Sonnensystem 
XOR. 

Das Spiel wechselt ständig zwischen 
zwei Spielszenen: 

In der ersten Spielszene (Bild 1) flie- 
gen Sie durch einen Meteoriten - 
s eh warm, dem es gilt auszuweichen. 
Steuern Sie Ihre Arche mit dem Joy- 
stick nach rechts oder links sicher 
durch die Meteoriten hindurch. Die 
Arche fliegt langsam von unten nach 
oben über dem Bildschirm, wobei sich 
die Steuerung auf den Meteoriten- 
schwärm auswirkt. Wenn die Arche 
den oberen Bildschirmra.nd erreicht 
hat, so wechselt das Bild blitzschnell 
zu Szene 2 (Bild 2) um. Die Arche 
senkt sich jetzt, auf den Planeten her- 
unter und verharrt etwa in Mitte des 
Bildschirms. Steuern Sie jetzt den 
Lander mittels des Joysticks aus der 
Arche und fliegen Sie zur Planeteno- 
berfläche hinab, wo ein Wesen aufge- 
regt hin- und herläuft. Steuern Sie 
den Lander über das Wesen und drük- 
ken Sie den Aktionsknopf, um den 
Trägerstrahl auszulösen und das We- 
sen an Bord zu „beamen". Wenn Sie 
das geschafft haben, so kehren Sie mit 
dem Lander zur Arche zurück, wo- 
nach sich diese wieder vom Planeten 
entfernt und in den nächsten schnel- 
leren Meteoritensturm hineinfliegt. 

Es gibt manche Planeten, deren Ath- 
mosphäre so dicht ist, daß der Lander 
nicht zur Oberfläche vordringen 
kann. 




In diesen Fällen muß die Atmosphäre 
mittels des ,BeamstrahIes' vernichtet 
werden, damit der Lander das Wesen 
retten kann. 

Wenn der Lander nicht weit genug zur 
Oberfläche vordringt, so drücken Sie 
den Aktionsknopf. Sie sehen nun den 
,Beamstrahl'. Lasseh Sie den Knopf 
gedrückt und bewegen Sie den Joy- 
stick nach oben, so lange, bis der 
,Beamstrahr nicht mehr erscheint. 
Jetzt lassen Sie den Aktionsknopf los 
und drücken anschließend den Joy- 
stick nach unten; Die Atmosphäre ist 
jetzt dünner geworden und der Lan- 
der kann ungehindert zur Planeteno- 
berfläche vordringen. 
Für das Rettungsmanöver haben Sie 
selbstverständlich nur begrenzt Zeit. 
Wenn die Strahlung dem Planeten zu 
nahe kommt, so stößt die Arche ein 
Warnsignal aus. Jetzt heißt es, sich 
mit der Rettung zu beeilen, da der 
Lander nur nach erfolgreicher Mis- 
sion zur Arche zurückkehren kann. 
Das Spiel beginnt mit Runde 1 und hat 
seinen höchsten Schwierigkeitsgrad 
bei Runde 20 erreicht. Danach geht 
das Spiel zwar weiter, steigert jedoch 
die Schwierigkeit nicht mehr. 
Für jeden bestandenen Meteoriten - 
stürm erhalten Sie lOOmal Runden- 
zahl Punkte. 



Jedes gerettete Wesen bringt 1000 
plus 50mal Rundenzahl Punkte. 
Alle 10 000 Punkte gibt es eine Bonus- 
Arche. Der Rechner kann maximal 1 5 
Reservearchen bereithalten. Sie be- 
ginnen das Spiel mit 5 Archen. Die 
Punktanzeige geht bis 9 999 999. Da- 
nach werden Sternchen angezeigt. 
Ich bin persönlich noch nicht in den 
Genuß gekommen, eine sechsstellige 
Zahl in der Punktanzeige zu sehen so- 
wie mehr als sechs Archen mein eigen 
nennen zu dürfen. 

Das Programm zeigt eine ungewöhn- 
liche Programmtechnik der Sprites. 
So werden diese zum Teil derart über- 
lagert, daß die Arche in zwei Farben 
erscheint. Weiterhin wurde sich der 
Unart des TI, nur max. 4 Sprites pro 
Zeile darstellen zu können, zu Nutze 
gemacht und somit das interessante 
, Verschwinden' der Arche realisiert. 
Soundmäßig wurde aus dem TI alles 
herausgeholt, was er hergibt. 
Doch nun: Viel Spaß beim Spiel! 
Anmeckung: Während des Spieles 
darf die Taste ,ALPHA LOCK' nicht 
gedrückt sein, da sonst die Joystick- 
steuerung nicht richtig funktioniert. 
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1 ' iü'P- 

1 Fi R E !'"! + .*: £ *: ■!• ■!■ t ■!■ 1 1 % •!■ t •!■ ■!■ ■!■ 1 1 1 1 f* 1 1 ■!■ 1 1 1 :*: ■!■ * * * * * 

I ;;:■ p|;:r[.i # H |--| R - 2 Fl 9 9 •!■ 

1 J. pf: (v| ;J : ; - ;:jr; 

16 REM $ Ein SP iel. fu.er den TI 39/4 Fl * 

1 8 E E M * 9 p s «:■" h r- i e h e n i n ! :: " x K e ti H e d B ! ::: ! ■-: I C & 

2 U R EM :*: S i:: «- 1. 1 <- r 1. 1 v, 9 iv. i 1:. 1". i;;;- '!. ■■■■. ... l -'"- 4 :». 1" i. c !-■' - : ! : : 

>■ v p f i-i ■*. ■■■ - - :*: 

■p.::(. REH i >:' r- > 1.984 bx Volker Becker t 

2 6 R E !'! * ' ■ P t" > ::: ' i ■•"• h "i .- h e >■"■ 3 t\ r ■■*■ ■= *t> 1. Ft * 

PF: PPM # 6370 ('iherw-eel 6 % 

30 RF' M :1 "*: :*: *' #:* * *:* :*: 1 1 1 1 :*' 1 tt 1 1 :*:*:*: £ "*: £ :*' t :*: tt 1 1 1% 

32 REM 

7R t i;&p+ 

..,,.. q-, y^ ,;.; ||: ; ;] . . Hf;.|-[_jp : PflHI |H : : I : : P : : M : : NOT' : : P : : P : : RUNDE : : 3 : ; ST 

; = h'TV =" T : = X ■■ XI ^ ^V ■ V = ■ VI = = CRLL R N Z Fl R C H E : : -CRLL ASCII SET :: CR 
t j ,- : j ffip ■ ■ i;- : fl|_ f rnii-ir 

74 Pf! LI.. C Fl LOP :: CR!. I. r:«F! : : -;PP'[TF := rf ][..,[.. HC HRP :: CR!...!... JOVST :: CRLL KEY :: CRLL 
! v ! R G !• 1 1 F V = : r"' R !. I. ! v ! " ! " I n !- i : : r ! ::: ! !. . ! P n c ; I T '!' n N = : C R I. . !.... P U !■•! K T E : : C R !.... !.... SC R E E N 
7'fi CRLL SO LI HD : : T-Ftl L :-";pRTTI ::: ' ■ '"-hü I ^TPRH! MMG .= : CRLL TITEL 
ftfi DR TR 1 ■ 2 • '■■! ■ 4 ■ I::: > ■ £• • 7 • 8 . 9 .. Ü 
Qt;:;i nPTIOH BRSE 1 

y c :i D'lf'l R<4':- 

'^6 ' @P-~ 

1R0 RRNDOhllZE 

1 PI 5 C R !.... !.... C !.... E H P ; : r ^ ! ! Fl ■": P I T c ; E "!' : : C ! ::; i I . L T I T E L ( B < "■> • l 3 , > : : CR L !.... CO L R < 2 .• 1.0.. 1 .. 3 ..10, 

:! . 4 • 1 , 1. •' 

108 CRLL SC RET- N»:' I? ■' : ; CRLL CGI 0R( 1. .. 1 '!. .■ 1 ■ 1P < 1.R < ! ■■ : : CR!.. !. CL.ERR 

1 R 9 FO R !< = ' :; : :'"! T 1 ? 4 ,;:: ; T F P ^ 1 

1 1 1 "i F i" "i R T -:" 1 "!" n K: :i Fi = = X ™ R H r> :*: ;:; : ' 1 + 1 : = Y =s R !•■! D :i- r : : I + 1. : = C R f.... [ .. H C HR R < X .. V ■ K ) = : N E KT I 

11.2 NEKT !< 

1 ■:! Ö R L I N !":■ E -■ 1 : ■ ! ::; ! R C H F. -- 4 : = ! ::: ' = Fi ^ = P N 1 .1 S -~ '!. 

1 '"' 4 i" ■ R t. I . R !'■! 7. H ! :; ?' C H F < R R C H E ■' : : '": R 1. 1 . p I...I K| |< I Fv; p > 

1.£=i CR! [.... MRGHIFYOn 

1. 30 CRLL SPP I TPY # 1. , 1 ?:=: , c < , 1 9 ' :: ; . ^fi , #;": . 1 " :: :;? . 9 , 1 93 , 1 2S > 

i 40 CR! !... I'IÜT I O!-!*. #1. ■ -3 ■ ■ #£ ■ 3 . Fi > 

i c: ; kl ;:•:; -.:=: p HD * 1 :'"! 9 + 1 : : V - X + 1. 1. 5 = : C R ! . I.... S P R I T E ■: # 1 Ö , 9 6 , 4 , 1 , X , # 1 1 • 1 .■ 1 4 , 5 'r' , Y "> 

1 h0 XasRND* 1. 39+ :!. ■ ■ Y:=X+ 1 1. -:i : : CRLL SPP I TEC # 1 2. , 1. 04 .11,121. X , # 13,108 , 8 .. 1 815 , Y > 

1.6? MRT =10+ RUNDE 

1.6S FÜR I = 10.TO 13 ;: CR!.!. MÜTT0N< #T , MfiT, ! ::: i ':> = ■ HEXT I 

1 i :? CR! !... ■ lOYSTC 1. . ! :: ! . V "' 

•175 (F y : -Q THEH 1.90 

1.S0 FÜR 1 = 10 TR 1.3 - PRM MRT T FlN( # I , MOT ■ ~X*4 ) : : HEXT I 

190 CRH.. CFiTNC»:" RU. ,ST >■ : IE ST THEH GOSUB 2008 :: GDTO 130 

2 t"i i -i P R I...I p Fi S I T I O H '■ # 1. ■ X , V ) : : I E X < 7 T' H E H 1. 

2 1 i ": R L !.. . S UN D i ■-■ 5 . S 2 Fi •- X ■ ,: "i ■ K i 1. : ::: : ~ X • ^ ■ t: « 2 2 -- X , ? , ~ 7 , 5 > ; : G OT 1.70 

1 h i:-=i Fi P s: p + 1 i?t t p 1 1 H D E : • C R L !.. . P 1. 1 N !< T E ( P ':• : : G S U B 8 9 

l@fl5 PRLJ. MOTIOHcil -0,0..'tt?.0.0)- EUR 1-1.0 TU 13 ■■ CRLL DELSPRITEC#I >= = HEXT I 

1.01 FRI...I . SPREE HC ^ ) : : CRLL.' COLOPC 1 • ■* ■• 1 > : : CFH....L COLORC #1 .- 11, #2, 1 1 ■' ■ ■ STV=0 

1 ? 6 C R iL !.. . H C H R R ■■ 2 4 . 1 . 3 t: i . : :: : ;' :: ' '■> ■ ■- C R | ... L. H C H R R '■ 2 3 , 1 , 3 4 , 3 2 > 

1 02/ PRLI. P ,::; : T T T 0H-: # 1 , X , V "> : : CRL I . SP R I "f'E < #3 , 1 36 , 9 , X , V , #4 , 1 40 , 9 , X , Y+32 > 

1 0?S CRLL HOT 1 0H( # 1 , 3 • ■ #2 ■ 3 . Fi ■ #:": , 3 . , #4 , 3 ,0 > 

1 027 CRLL SPR 1 f E< #5 . 1 1 2 , 3 . 1 47 , 1 1 2 > 

1.fi30 FÜR "I == i T'O 1.0 

1 0:-: r üi MOT=-M0T :: CR!..!.. MOTIOHf #5, 0, MOT > 

1 fi50 CR!. !... PRÜM [':■•:■ 1 SR . 1. 9=5 , > : : CRLL SOUND.:; 1.50 ■ 261 , > • : CRLL. SOUNDC 1 50, 329, ^ : CRL 

I S OU ND < 150, 523,0 > 

1060 HEXT I 

1070 CR I. . L MO T 1 N ( # 1 , , 8 .. # 2 , , 8 > : = C R L. L. D E L. S P R I T E < # 3 , # 4 > 
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f)--- IF STV THEH 1102 ELSE IF XIO 
!<EVX1,T,S>: •■ IF T-1Q THEN GOSUB 30 



1 08 C AI.. !.... F : ' S T T T N •:' i* 1 ■ X V ■ V > : • i '; R !....! S RR I T E < # 3 .. 1 1 6 ■ 1 4 . ••■! V + 5 , V + 1 6 ) 

1090 FÜR I=90~RUNDE#3 TU STEP ™t 

1 9 3 C R !.... !.. C 1 H C ■:' fi !. I ■ S T ':■ : ; I F q 7 T H E H 4 8 

1A95 M~PND:*'20 : : TF MMÖ THEH MOT=>-MOT 

1 1 00 CR LI. JOVSK 1 , X , V -' : = CR! .!.... POS I T I ON': #3 .. X : 

XV+32 THFN TF Y"=4 THEH Y--0 

1102 TF Xl>= 125 THEN IF Y=»4 THEH Y=0 

1105 C R !.. . I... M T I Ü H »:: tt 3 ■ - V * 5 ■ X * 5 ■ tt ■ =5 . ■ M T ■' ; ; C R ! 

00 

•1107 I F I < ™ 1 5 "f ' H E H C R !. ... !.... S UN D < - 1 , 1 9 5 , ff , 3 6 1 , .. 3 2 9 , .■ - 7 , > E L S E CR LL S OUHÖ< - 1 00 .■ 6 

59 • j 

11 10 HEXT T j 

1 1 1 3 CR!....!.. CO LOP«:" # 1 . 6 , #2 , 6 > 

111.5 CALL STRAHLUNG 

11.30 GOSUB 3000 

1 130 CALL HCHRR-:: 23, 1 , 32, 64 > : ■ CR!...!.... S GREEN': 2 > ■ - CRLL COLORC 1 .■ 1 1 , 2 '?■ ■ GOTO 130 

3000 CRLL. MOTION'::#l. ,0,0, #2,0,0 ::■= = CRLL PELSF?RITE': #3, #5 '.:- = = CRLL POSITION-: #1 ,X..Y) 

3005 FOR T = 10 TO 13 •= CRLL. DEL8PRTTE< #T > : : HEXT I 

20 i i":R!.j. SPR I TE<- #12, 1 23 , S , X , V , # 1 3 , 1. 32 , 6 , X , Y+32 > = • CRLL. SPR I TEC # 1 , 1 28 ■ 1 .. X .. Y .. # 1 1 

,132. 1. ■ X..Y+32 ■- 

3020 CALL SPR T "f E< # 1 , 1. "'S . 1. , X+32 ■ Y , , . #2 , 1 32 , 1 , X+32 , Y+32 ) 

2930 C R L !.. M T T W, tt 1 , ■- 5 , , tt 2 , ••- 5 , 8 > 

3040 FOR 1-523 TO 343 STEP -1.0 

2050 CR!.. L SOUND': -50 , 1 , , T + 1 , , '[ - 1 , ;■ 

2060 HEXT I 

2070 CRLL DELSPPTTE'-RLL ;- 

2075 ARCHE= ARCHE- 1 : : CFll 

2080 RETURH 

3000 CR !.... L M T 1 N C # 3 , , ) 

!.. SPR ITEr:#4, 1.20.1 2, X.Y 

'-: 1 fi C R L. !.. C n I H C < R !. ( - S T 

3015 r:flLL ÖELSPRlTE-r #4 

3020 RETURN 

4000 IF STV THEN (5000 ELSE 1095 

5080 ST V ~ - 1. ; = C R L !. . DE f.... S P R I T E <. # 4 , # 5 > : = C R LL S CH..I HD (250 , 5 2 3 , > ■ = GOTO 3020 

6000 P ~ P + 1 + 5 * RUH DE : : C R !.. . ! ... F" U N !< T E ( P > ■ ■ G S ÜB 8 

6005 CRLL DELSPRTTE'- #3, #4':-^ CRLL POSITION':: #1 , X, Y ')• •■ CRLL SPRITES #3, 136, 9, X,Y, #4 

. 140, 9, X, Y+32 > 

60 1 CR!.. I. MUT T ON«; # 1 , -4 ■ & , #2 , -1- = Ft , #3 ■ -4 ■ ■ **4 , -4 . ) 

6015 P U H D E = PU HD E + 1 ; : I F P I. J H DE > 2 B T H E H R U N D E ™ 20 

6020 FOR 1=1 TO 10 

6030 CRLL SOUND':: 1.50 . 523, > = • CRLL. SOUHD< 1.50, 329, 8 > : ' CRLL SOUND 1 :: 150.. 261 , > ■ ■ CRL 

I SOUND r 150, 195,0) 

6040 HEXT I 

6050 CRL. L D E L S P P I T E <. R !. ! .. ':• 

60^0 GOTO 1 1.30 

3000 IF P>~10000*BQNUS THEN S02O - 

ftWlfi RETURN 

3020 RRCHE=RRCHE+1. ■ ■ IF RRCHEM5 THEN ARCHE™ 15 

8030 CRLL RNZRRCHE': ARCHE ■' 

8035 BOHUS=B0HU3+l 

8040 RETURH 

1 0000 CRLL. T I TEL.'- B( ':> , 1 . I ■- 

1.0010 GOTO 108 

1 9999 ! #P+ 

20800 SÜB EINLEITUNG':: R«:' >.KY^ 

20802 GOTO 20010 : : s : : T ■ ■ RRIJ OLMflHRIVER : : HSP- 

20010 CRLL DELSPR1TE<RLL>: : CRLL. CLERR ■■ ■■ CRLL COLOR< 2, 2, 1 ')'■-•■ CRLL SCREEH<3> 

20020 DISPLAY RT< 1 , 1 ') ■ " N H R - 2 9 9 (.<.(.<<.<<.<.<.<<<<,<<<.<" 

20030 DISPLAY flT<4,i)="IM SONNENSYSTEM XOR HRT SICHEINE KOSMISCHE KATASTROPHE E 



Fl H 7. Ff F^: C H E < Fl R C HE ') ■ ■ I F R R C H E < THEN 10000 

CALL PÜSITI0Hi::#3,X,Y::': : IF X<125 THEN RETURN ELSE CRL 
R !.... !... S IJ H D ( - 2 5 , 1 46 , O > 
TP 37 jHEN 5000 
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PETGNFT. DIE SONNE BLREHT SICH RUF UND SCHICKT RADIO™" 

vAA40 DISPLAY RTC 8, 1 >• "AKTIVE STRAHLUNG INS ALL,," 

-■fi05R DISPLAY AK 10,1): "WIR SCHREIBEN DBS JAHR 2099 SIE HABEN NUN ALS NOHfl DIE 

ARFGAPF DIE PLANETEN DES SONNENSYSTEME* ZU EVAKUIEREN" 

20060 DISPIAY AK 14, 1 V "BEVOR DIE STRAHLUNG DIESE ERREICHT, UND SOMIT 8AEMT- 

I ICHFS LEBEN AUF DEN PLANETEN VERNICHTET. " 

?m?& DISP! AY AK 19.1) = "FLIEGEN SIE MIT IHRER ARCHE VON PLANET ZU PLANET UND 

RETTEN SIE DIF WESEN, DIE AUF DEN PLANETEN LEBEN--" 

2017180 DISPLAY AK 24, n= "WEITER MIT E N T E R" 

20085 CRL!.. ÜLMANRIVERCEK >>5> 

20090 CALL KEY<5,T.S>= = IF SO0 AND T=13 THEN 20100 ELSE 20985 

20100 CALL. CLEAR 

20110 DTSPIRY AK i . 1 V "STEUERN SIE IHRE ARCHE MIT DEM JOYSTICK SICHER DURCH E 

TNFN MFTFriPTTFNSTURM, UM DANN EINEN PLANETEN ZU" 

2.01.20 DISPLAY RT(5.1)= "ERREICHEN. DANACH STEUERN SIE DEN LANDER AUF DIE QBER-F 

! Hf-rHF DFs P! RNFTFN NT HRP UND BEAMEN DAS WESEN IN DEN" 

301.30 DISPLAY AT-'9.l V"(...RNDER„ NUN KEHREN SIE MIT DEM LANDER ZUR ARCHE ZURUECKU 

H n F I T F !"; F N D ! I P ! "' H. F f M F W ■ !...! F. T "f f :: ' R F. N M F T E R I T E HS T U RM ' ' 

201.40 DISPLAY RT«- 1.3 . 1 ">■■ "ZUM HAEHHSTEN PLANETEN-, DIE METEOR ITENSTUERME WERDEN 

1 f ,) jvj p p c; (■■■■ H |, j p j | p p _ (■-, -f p 7 p ( ; j i f ;..j | ,j p p p : j...| p p 9 j p (■;;, p c; WESEN AN " 

20150 DTSPLAY AK 17- : "BORD DES LANDERS BEAMEN MUESSEN WIRD IMMER KUERZER 
! j |-..| r;. p. h 3 ! . ! F :=; F n \ R F 1 ! F T [ hir-j F P s C H N E L !. . E R H I N UN D HER," 

;: :: '0lH :: ii;; : i DISPLAY AK 21 , 1. ':■ = "WENN DRS WARNSIGNAL DER ARCHE ERTOENT, MUESSEN SIE 
: :;: ; r p : 1...1 m t j p p p p p t 7 ! ! N p; p, F F T | . F |-j ! ,. I F T T E R M I T E N T E R ' ' 

20 1 6 5 C AI . L OLMA N R I VFRc B<:' > , |:: > ■' 

2017R CRM KF Y •■' c , , T , s "-. : : TP 3 •■:"> hUP 7-18 THFN 20130 ELSE 20165 

20'! AR '"'RM C! FhP ' 

20 |9fl DISPLAY AK 1 , 1. > : "SIE KOENNEN NUR ZUR ARCHE ZURUECKKEHREN, WENN SIE DAS W 

ES RH GERETTFT HRBFN, " 

■::■ ,;::, p ^ p, p, | q p ; p, y h f < I::: i , 1 ■;. ■. ' ' p T F I. ! E R i J H G < '■ '■ '• < •■'■<< D 

•|; p ,:::, p p- |_.j p , c ; n j., \ t p j •;, p p j p |-j [;, p p ; ,| p p r, p j.,| jvj j j p, p jvj j ( ; j yg T J f; |< t™ p - g T P I . |£| J E R T . " 

2021.0 DISPLAY RTC 10, n : " ZUM RHSLOESEN DES TRAEGER- STRAHLES WIRD DER AKTIONS- 

K HO PF !'-;EDRUFCKT .. " 

2!: : i3:;-'!"i ['"• T SP! RV RT 1 :" 1. 4 • 1 "■ : "PI JNKTWFPTUNGi C < < '-. '■. < ( <. '• (. '■ ( 

p p c : t RH p. p (s| P P M P T F R T "!" P !■■■! ST l ! R M P f .! N DE M H !. 1 < :: i ! ::: ' U H !< T E " 

::>!::=) ::-•--: Pi hTSP! RV fiT.: '! P , 1 :- = "HF PF TTETES WESEN 1000 + RUNDE MAL 50 PUNKTE" 

30240 DISPLAY AK 21 ■ O : "ZU PP'fFi.PFGIHN STEHEN IHNEN 5 ARCHEN ZUR VERFUEGUNG. 

j::: : q pj | j c ; ,:::, p p : m p r | ; p | r ^ p, p, p j j ;•,( i< p C; p J F |. . p EG I N N M I T AK T I ÜN SK N Ü PF " 

2 2. 4 5 A !. ... !.. n ! . M A N P T V F ! : ? •:' P '"' ':> - 1 ':■ 

oRv^R Phi ; KEY-:' 1 . T . ■"; '• ■- ■■ TP "!"<"•■ 1.B THFN 29 2 4 '3 

20360 CA!, f.... CLEAR 

20265 ! i?P+ 

2i: : i2:7f: : i Si IBEND 

2 5 S U R 1 M R N R I VE R •' ! :: ' ■:' > . K V ':> 

25fi05 GOTO 2501.0 : = AZ ■ l . ! ■ = K ; : Ml : : M2 : • S = : STV — T = : ! @P- 

250 1. A DATA 1 , 1 95 , 26 1 , 229 , 39 1 ■ 4 . 2:29 ■ 39 1 , 1. , 1 74 , 22:0 , 26 1 , 349 , 1 , 26 1 , 440 , 2 , 26 1 , S23 ,1/2 

Kl . 440 ■ 1 ■ 195,2-61 -329.391 

?50;?0 DATA 4 , 329 , 39 1 , 1. , 1 74 , 220 ■ 2:6 1 ■ 349 , 1. , 26 1 , 440 , 2 , 26 1 , 523 , 1 , 26 1 , 587 , 1 , 1 95 , 26 1 , 3 

39. 391 , 4-391. .659 

2 r:: ii"i::»:0 DATA 1. , 1. 74 . 2?^ . ?.Z 1 - -*49 ■■ 1. , :' :: :49 . 537' , 2 . 349 , 523 , 1 , 349 , 587 , 1 , 1 95 , 26 1 , 329 , 391 , 2 , 3 

'^1,659,2.391 .733 

?5i?i40 DATA 1 . 1 74 , ?2ß , 26 1. , 34^ , 1. > 5;' ::, 2 , R30 , 2 , 523 .. 733 , 1 .. 523 , 880 ,4,1 95 , 246 , 293 , 39 1 , 4 ■ 4 

25h^R DATA - 1. ■ 493 , 659 ■ 2 • 493 . 59? , f. ... 49:3 , 659 , 4 , 493 , 783 , :l. , 493 , 659 , 2 , 493 , 587 , 1 , 493 , 659 

25P(ki- : i DATA 1. ■ 1 95 , 26 1 , 329 ■ 39 1. . 4 , 329 , 523 , 1 , 1 74 , 220 , 26 1 , 349 , 1 , 26 1 , 440 , 2 , 26 1 , 89 1 , 1 , 2 

61 .440 

25070 DATA 2 ■ 1. 95 , 26 1 . 32^ ■ 39 1. ■ P ■ 339 , 523 , @ 

■ ::, 5080 RE'-:TORE 25010 

2 5 Pi 90 A2! • 3TV-0 

25100 READ K : ■ IF !<" : THEN 25080 
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251 1 PI PFAD B< 1 ') ■ P>< 3 "■' • P 1 - 3 '■' ■ R>- 4 > 

251.20 FÜR 1 = 1 "f'O K 

25138 FÜR ,1-1 TO 4 

■•-' 5 1 4 8 T V " S T V + 1. I F S T V > A 7 TH F N P E R D R Z .. ! 1 1 ■ M 2 ■ ■ 3 T V = 1 

25 1. 50 CRH.. S Ol (NfX 4 8 Fi ■ M 1. ■ 1. ■ MS : Fi , B<. J ".< .. 5 ''< = = CHI. !.... KEY«' KY .. T ■ S > : 

35 'j. £8 HEXT' ,J = = NF KT T 

251.78 GOTO 251. 88 

•-'5 1.75 '0P+ 

351.30 c ;I.JBFNr< . 

? RA Fl Fi s!IB STRAHLUNG 

23805 goto 2RFi1.Fi ■. •. r r 

2i ::: :0:i.R DATA 1.1. . 1.2 . 16 

2R02Fi RF STORE 28010 

28030 FOR K>3 TO \ c;TFP 1 

v R 3 5 RF R D ("' : : ("' h I. I c ; r: R F F N c r j 

2 P 4 F H P I s 1 Fi T 1 :•-; "f E P - 1 

2 ft 5 fi C R !.... !. ... 8 1. i H D '- - 2 5 Fi . - 7 . V t I ':> 
33060 HEXT I 
28070 NFXT K 
2 RR 7 5 i F'p-i- 
28080 SUREND 

30« 3 1. 1 p H N.7 H R 1 C H F •■ ft P C H ? : ':■ 

30R05 i (sp- 

3m01.Fi CR LI.. HCHRR 1 :' 1. . 3- 33 - 1 5 ) 

3 Fi 2 T F R R C H F. < = !' H F H S I. . I B F X T T 
3 3 f ' R ! I M f ' H Fh p ■:' 1 , 3 , 4 , A P C H E "' 
3'"i035 i Pp-i- 
3004 A 3! fBFHD 
3 00 50 SUB PI INKTF 1 ' P ':> 
30055 ! pp- 
3 Fi 6 D T 3 P f.. Fl V R T ( 1 .. 
3F1065 f fl»p+ 

30070 8UBEND 

31 Fi 8 8 SUB T"!"TF!..i: p.< ':■ 

31001 GÜTfi 31002 : 

vr:HRR : = Müp- 

3 1. 00 '":' C Rl. . !. M R G [' ■■! T F Y <:' 3 ':■ 

31 005 TF STH=1 THFN RE STORE 3193? 



IF SO0 THFN SUBEXIT 




•;, •U3ING " ####### •': P 



MfY - 3 TN -i 

8* f = HS 



T == CALL EINLEITUNG :: CALL 



■HU. SÜREFNC 5 ) = = CR!....!.... COLORC 1 .. 1 1 .. 5 > • = GOTO 



3 1 055 

3 1 1. 8 C R !.... !... C !.... E Fi R : ; C H !. ... !.... S C R E E N < 5 > : : C R !.... I ... C Q I ... R < 2.-11.-1 > 

3 1 028 CALL... HCHRRC 1 .. 3 .- 40 ■ 23 > : = CALL. HCHRR( 2 .. 3 .. 40 .. 23 ':• ■ ■ CALL HCHRR< 23 , 3 . 40 . ?ft ':< 

R! !.... HCHRR':: 24,'": .40, 2.B"-' 

31 030 CR! !..' VCHAF?'' 3 , 3 . 40 .< 2:0 ■' : ; CR!.. !.. VCHAPf 3 , 4 . 4 Fi , 30 ':. = : f:RI [ VCHRPC 3 , ?1 , 40 , ?0 i 

R! ..!.... VCHRRC 3 , 3R , 40 , 20 ':> 

3 1 035 DR TR G , R .. M .- F , .. V ■ E ■ P 

'-: 1 Fi 40 DATA N • .. H .. R , 2 . , 9 .9 

3 1 845 DR TR 1 23 , 1 38 ., 1 32 .. 1 34 .. 1 29 . 1. 3 1 . 1 33 , 1. 35 

31050 R E S T RE 3 1 Fi 4 8 

31855 ,j™0 

31.868 FDP I--73 TO 1.69 RTEP 32 

31065 ..l=J+l 

21.078 REfiD S$ : : F:R|.. | SPP IT FC #. I . HRr.f 9,% 'j • 4 . 4P! . T ':• 

31088 NEXT I 

31098 FÜR I.--73 TO 169 STEP 32 

31.100 J=J+i 

3 1 1 1 READ 8* ; : CALL SPP I TF( #. I , RSC< 3$ ":• . 9 . 39 . I ':■ 

31120 NEXT I 

31121 IF STN=1 THFN 31.125 
3 1 1 22 CA! !. COLOR'- 1 3 .. 1 6 , 1 > 
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Hl 123 FOP !..-•? TD 1.0 == FDP 3=15 TO 1.8 :; READ RS :: CALL HCHAR-'L, S..AS ■>« • NEXT 8 

= HEXT !... 
■'■'. 1124 DI S P !... R Y A T ( 1 8 . 4 ') 9. :E Z F ■:' 2 Fi > ' ' ' 3 P I E L R H !.... F I T UN G < J / N > ' ' 
xl 12 e:i i DISPLAY AT-:: 21. -4 >S:tZE':: 23 > :"(*:!. 984 BY VOLKER BECKER" 
"'! 1 1 :'-i0 CALL OLMRMP I VER»:' Br: ü , K Y ) 
31133 IF 3TN™8 THEN 311.60 
3 1 1 4 PI R !.... !.... C I... F R R = ; C R i. . !.... D F !.... 3 P P I T E < A !.. . 1... ) 
31 158 S ÜBE KIT 

3 11 SR CALL KEY<5..T-S>: = IF T074 THEN IF TOI 06 THEN 31140 
:"! 1. 1 7 R C: H L !.. E T N I. .. E I T l. J N G '■ B >■ ':■ , K V > 
■ : !ll7 e . 'PP+ 
31188 3 UREM D 
3 2 R 8 3 U R H 5 f ■ 1 1 8 E "f ' 

'3 20 Fl 5 GOTO 32010 ■• = C$ : ; f" = ■■ I = = CALL CHAR : : ! @P- 

3 2 R l R D R T R R 6 R ö @ 1 3 E .. R 7 R 3 1 ■ 08 008 08 8 0C8 E8 .• B8 68 C 88 .• 80 80 8888 88 1 8 387 .■ 0D8 
G R 3 R 1 .■ R 000 8 8 RC 6 , F C 8 .■ 9 8 8 8 8 8 8 8 1 8 3 68 D .. 87 8 3 1 

3 2 6 2 8 D R T fl 8 8 8 8 8 8 8 8 8 8 C 8 E .- 7 8 C 8 8 .. 8 8 8 8 8 8 88 8 8 1 8 3 8 7 .- 86 8 38 1 1 - 08 8888 8888 C 869B * E0C08 
.. .. PI 1 8 3 8 5 3 8 6 8 F 2 8 6 .. ■ 8 8 f: 8 A 8 C 9 6 8 F 8 4 8 6,8880800081 8 71 F8R 

3 2 8 3 8 D R T R 1 F 1 . 8 8 8 8 8 8 8 8 8 8 E 8 F 8 5 . F 8 8 ... 8 00 8 8 8 8 1 1 8 1 1 8 1 .- .. 8 8 88 8 8 8 8 8 8 88 8 8 1 88080828 1 
fi;:;>3 , . , . 00800 1. 07 1. F7FFFk6 • FF7F 1 F878 1 , 8F3FE38FE3FFFF66 • FFFFE3F 1 F83F8F83 
3'-m:"i48 DATA F0Fi';r:7F0C7FFFF66 , FFFFC78F 1 FFCF0C , 0880S0E8F8FEFF66 , FFFEF8E88 .. 8800880 1 8 
i"i 8 f™t ■'": F c : F .. 3 F ■ 8 8 3 F 3 E F 8 3 F 8 8 F F F F . F F 3 E ■ ■'• E 1 F 8F , 9 8 7 C 7 C 1 F 7 C 8FFF F 

8 ;;; : ' Fi 5 8 D A T R F F 7 C 7 C F 8 F , 8 8 8 8 8 8 80FC F C , . F C ■ 8 3 , 8 8 08 2 8 1 2 8 .• 3 4 .. 1 8 3 C 7 7 FD F F B7FDE F , 35 .. 
F 7 F F F D F F B B F F F F F .. 4 8 .• 8 8 1 8 7 F 2 4 7 F 1: 8 .- 6 4 , 3 C 4 2 9 3 A 1. A 1 3 9 42 3 C 

3 ■-■ 8 6 D R T R 88 3 C 6 666666 6 6 6 8 C ,8818 3 8 1 8 1 3 1 8 1 8 3 C ■ 8 03 C 668 68 C 1 83 87 E ■ 08 3 C6 68 6 1 C 06663C > 
8 8 T 1 f : 2 f: 4 f : 7 F 8 L 8 1": , 7 F 6 8 7 C 8 6 8 6 6 6 3 C , 8 8 1 E 3 8 6 8 7 C 6 66 6 3C 
3 2 Fi 7 8 D R T R 8 8 7 F 8 6 8 C 1 8 3 8 3 8 3 , 8 3 C 6666 3 C 666 63 C ■ 8 3 C 6666 3E 06 8 03 8 
:'"!;:"■ 0P8 PF STOPF 32010 
328 C| 8 FDP X-^6 TO 1.4 
■'^ 21. Fi 8 FOR I~1. TO 3 : 

321 18 FAP I ::::.:! :» : : TA e: i7' 

22 11 "5 -" SP+ 
32 1 20 3UBFND 



■ = PFAD C$ 
PFAD r: } r& 

■ PFAD C* 



CALL CHARC I , C$ > 
CALL CHRP»:' , 0$ ) 
CALL CHARC I , C* ) 



• HEXT I 
NEXT I 
NEXT I 
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Normalpapier (Einzelblatt + Rolle) 

40 Zeichen/Sek. 

46 Zeichen/Zelle 

5 x 8 Punktmatrix 

Grafik durch Einzefpunkt-Ansteuerung 



Option: 8 verschiedene J 
(rot, orange, grün, blau, vioi 
Direkt an Sinclair ZX-81 od€ 
anschließbar (GP-50S) 
Schni 
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JACK THE DIGGER 

Das Programm ist in Extended-Basic 
geschrieben und benötigt Joysticks 
Jack's Aufgabe besteht, darin, Glücks - 
symbole aufzusammeln, die in den 
Stollen seiner Mine verteilt sind. 
Um ein Symbol aufzunehmen, muß 
Jack nur darübergehen. Jedes Symbol 
hat einen bestimmten Wert, der vom 
Computer zufällig ausgewählt wird. 
Haben die Symbole einen besonders 
hohen Wert (über 50 Punkte), wird bei 
deren Verteilung in den Stollen ein 
Tusch gespielt. Um einen besonders 
hohen High-Score zu bekommen, 
sollten gerade diese Symbole alle auf- 
gesammelt werden. Es müssen nicht 
alle Symbole aufgesammelt werden. 
Wenn keine Möglichkeit mehr be- 
steht, an Symbole zu kommen, dann 
muß Jack über die letzte Leiter in den 
untersten Stollen gehen. Bei dem 
Wort „Lift" ist eine Glocke dargestellt. 
Wenn Jack diese Glocke berührt, setzt 
sich ein Lift in Bewegung, der ihn 
dann in den ersten Stollen nach oben 
bringt., wo er seine gesammelten 
Punkte abliefern kann. 
Für jede'Runde wird dann im obersten 
Stollen ein Sack dargestellt. Das Spiel 
ist zu Ende, wenn 10 Säcke erfolg- 
reich nach oben gebracht wurden 
oder wenn Jack alle Leben verloren 
hat. 

Die Aufgabe von Jack wird dadurch 
erschwert, daß in den Stollen böse 
Geister leben. Sie bewachen die 



Glücks symbole. Von den Geistern 
darf sich Jack nicht erwischen lassen. 
Ebenso tödlich für ihn ist ein Berüh- 
ren der Stollenwände oder ein Fehl- 
tritt auf einer Leiter. Anfang und Ende 
eines jeden Stollens bieten in den er- 
sten Runden eine relative Sicherheit 
vor den Geistern. Absolut sicher ist 
Jack auf den Leitern. Sie bieten den 
sichersten Schutz. 

Pro Runde werden die Geister schnel- 
ler. Dann gilt es manchmal nur noch, 
das Leben von Jack zu retten (mit ei- 
nem leeren Sack nach oben fahren). 
Verliert Jack sein Leben, muß er zur 
Strafe wieder von ganz oben anfan- 
gen. 

Noch ein Hinweis zum Abschreiben 
des Programms. 

Manche Zeilen werden wegen ihrer 
Länge nicht ganz angenommen. In 
diesem Fall beenden Sie die Eingabe 
mit „Enter' 1 . Rufen Sie diese Zeile 
durch gleichzeitiges Drücken von 
„FTCN + REDO" wieder zurück und 
schreiben Sie die Zeile dann komplett 
fertig. 

Die Graphik der Mine wird mit .,FOR- 
NEXT- -Schleifen aufgebaut. Mit 
..DISPLAY AT" wäre der Aufbau 
schneller. Da aber die Zeichen für die 
Stollenwände im frei definier baren 
Bereich liegen, wäre die Darstellung 
im Listing erschwert worden. 
Und nun viel Spaß und Punkte bei die- 
sem Spiel. 




**±* *1** ^1* *A** *"1^ **^ *** *X* ^st* ^i** *>1*° *£> ^A"* 
•T* *T" *1* *T* *r* "T* *I* *T* *T* *T^ *T* *i* ^X^ 



109 ! JflCK THE DIGGER 

110 ! WRITTEN BY W.DOELTSCH 
120 ! 6108 WEITERSTRDT 3 
130 ! RRPPMUEHLSTR.58 C 

140 ! TEL« 06150-48547 

ISA CALL. CLERR :: CR LI. MRGHIF'VC 2 '> ■ ■ I»-3 ■ ■ FÜR T-t TU 16 : = RERO' R :: CALL SPPI-T 
E< #T , R , 5 , 1 1 1 6+2 , I + 1 90 , , - 1 9 ';■■ I = I + 1 = : I F R=32 THEN I =3 

1>:0 HEXT T 

1 70 DRTR 74 .. 65 , 67 , 75 , 32 .. 84 .■ 72 , 69 , 32 , 68 .. 73 .- 7 1 , 7 1 , 69 .. 32 .. 32 

1 8 R R N DO M I Z E : : C H (.... !.... s C P E E H < 1 2 > ■■ ■ DI S P l ... R V RT < 1 2 .. 3 ) B E E P : " ER K L RE RU HGE N ? ? < J oder 
HV 

1.90 CRf .!.... KEY •::;■:::.■ T,S> : = IF T=15 TUEN 238 ELSE 1F "D-2 THEN 200 ELSE 130 

200 QRLL CLERR :: CR!....!.... 3CPEEI-K 13 ■' : : FOR 1>1 TD 12 :; CALL C0L0R\ I .■ 5.« 12 > : : HEXT I 

2 1 f ':■ 1 3 P L R V R T < 3 , 1 > = ' ' i % % % % J R C K t h e D T G G E R t % % % % ' ' ■ •■"$ a m ft 1 e a 11 e 3 y m bo 1 e aber" ■ 
■■ ' ' h e r i !. s h t ■■ p y, i .- 1-, t d i e? W .?. n d " = ■ ' ' od e r- d i e Ge i s ie r ,, " 

: ■-' 2 D I 5 P L R V R "f " ( 1 3 , 1 > ' ' ' B r i n 9 ■=■ d i e P u. n k t. e z u. tn L i. f t " '• '■ : " 1 R u. 'nd e-'n gibt's"' '"Pro 
P it. Ti d ü? i . i i. r d •' & s c h i. j e r e r „ " : ; C R L. L T R 3 T E R 

' '=■ 3 D I - :; ; PL H V R T < 1 8 .. 1 ) B E E P E P R 3 E R L L ' ' ' R L P H R L CK T R S T E NR CH B EH ! ! " : : C RL L TfiS TER 

- CR!....!. SCREEhK 2 > ■ ■ CRLL C0LüR< 1 , 2, 2 > : • FÜR I~2 TU 11 ■ ■ CRL..L C0L0R< I ■• 16.- 2> : : H 

EXT T 
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248 CR!.. I F F = = DI M M < 1 8 ;■ ■ ■ H U > T T ™ : - E X™ 2 3 2 ; : D E F F fl = I N T (. R HD * ( 1 4 - 3 + 1 > ■' + 3 

25 P* C fl L L C Hfl R< 1 28 • " F F 8 F 8F E F F 8 C E0 " . ! 29 .. ' ' C F 8 E FC F 8C@ F 8 E "..130. " F F 8F C FEF 0F 8 E8 F 

0", 131 , "E0FSF0FEF8Fr;F3E0" ) 

3 6 C AI L C Hfl R < 1 3 2 , " 03 F 7 1 F 3 F F 7 3 ' ' . 1 3 3 , ' ' 7 1 F 7 F 1 F 3 F F8 3 ' ' .. 1 3 4 , " 7 8 F 3 F 3 7 1 F © 3 

7 ' ' , 1. 3 5 . ' ' 3 7 0F 1 F 3 F F 3 7 " > 

2 7CÜ C fl LI.. C H fl R< 1. 3 6 , ' ' F F F F 7 F 1. D 3 " , 1. 3 7 . " F F F E F E 3 3 C i. 8 " , 1 3 8 , " F F F FFE 7 fl 76 2 2 " .. 1 39 .. ' ' F F F F F 

E74501") 

2 W0 C HL ! . C Hfl P '■ 1 40 .. " 8 J. 1 8 ': : i fl 7 fl F F F F F F " . I 4 1. - ' ' O ß 8 1 Fl 1 E 5FF F F F ",142.." 1 8 1 85 C7D FD F 

F".. 143. " 000Ö00 193476FSFF" > 

2 9 Cfl !.... L. C H RR ( 1. 2 4 , ' ' C0 F SE E 4F C F C F F F F ' M 2 5 , ' ' 7 07 1 3 1 F 4 F5 F F F F F " , 1 2 6 , ' ' F F F E F 8FC E 4 F 0E0 C 

8" . 1 2? , " FFFF7F ! F3E0B0307 " > 

3 00 Cfl L . I ... CH RR '■ 48 , ' ' 8 1 FF 3 1 F F 3 1 F F 8 1 F F " .- 4 2. , ' ' 3 1. 8 1 8 1. 8 1 8 1 8 1 8 1 F F ",10 6 , ' ' F F F F F F F F FFF FF F F F ' ' 

, 8 f$ , " Ci 00 18">. 

3 1 Cl C fl !.. .. L C H Fl R ( 1 9 5 , " 6 C 3 8 1 6 C 9 F 8 2 5 C 3 8 ' ' , 4 1. , "' ' 1 8 1 7 C 1. X 1 3 8 F E " ■' : : K 1 S* ' ' 1 C 1 E 3E 7 C F C RC4 

68 E " ü K 2 $ s ' ' 3 8 78 7 C 3 E 3F 3 5 6 2 7 D " : ; C Fl I. ... L CH Fl R < 4 3 .. !< 1 * > 

32 C flt !.. . C H fl R ■:; 1 1 2 , ' ' 3 34 2 8 3 3 @ 3 48 (5 C ".11 3 , ' ' 30 3 20 3 C 3 3 2 3 ' ' , 1. 1 4 , ' ' C 2 C 1 4 0C C 0C 1 2 3 

6 " . 1. 1 5 , " A C C 4 3 \"\ r: 4 r: ■ ' "j 

3 3 i";i fl I. . | h Fl R<:' 1 1 6 , ' ' 3 8 3 8 1 3 8 1 4 2 86 8 C "..11 7 , ' ' 3 8 3 8 1 7 1 2 8 2 C 60 " ■ 1 1 8 .■ ' ' 4 1 2 1 1 2 DCF 

I": " , 1 19. " 000000 1 2. 1 2D2IDC3C " "> 

34 i?i CALL HCHflR*- 24, 1. • 106 - 3? ■■ : : CR!...!... VC HRP/ 1 .■ 1. • 1 06 .> 23 } : : -CALL VCHBR 1 : 1 , 32, 186 , 23 > 

350 FÜR R=3 TO 21 STEP 3 = : FÜR PI ==5 TD 29 ST FF' 4 ■■ ■- CFfl. L HCHRRC R-- PI .■ 140 ■' :: HEXT 

R] ■■ FnR P2=6 T'm 38 3 "f'EP 4 : = CR!...!. HCHRR< R.- P2 ■ 141. ) ■ • HEXT P2 
3613 FHR P3~7 "!"!'"! 27 STEP 4 = = CRM... HCHflP«' P . P3 . 142 } = : HEXT P3 =■ FOR "P4==R TO 28 ST 
EP 4 ■ ■ CR! L HCHflP'' P.P4. 143 ■•: = HEXT P4 ■ ■■ HEXT R 
370 FAP P==4 TO 1.9 STEP 3 ■- ■ F'OR pi~! ::; ; TD 29 STEP 4 :: CR!....!... HCHAP< R .■ P 1 -> 1 36 > = ; HEXT 

PI ■ ■- FOR P2--6 T'f"i 30 STEP 4 ■■ ■ CR!..!.... HCHflRC P - P2, 1.27 > : : HEXT P2 
388 FOP P3-? TO 37 STEP 4 :; CR!...!.. HCHRR.; E, P3, 1. 33 > : - HEXT P3 :; FOR P4=3 TO 28 ST 
FP 4 =: Cfl!...!. HCHRP':' p , P4 . 1. 3' ::: i ; i: : HEXT P4 :; HEXT P :: CALL HCHRRr' 23, 5, 32 .'27 ) 
39i/i FHR p ■■<-• TO 2;l 3tpp 4 :: r:RLL VCHRR 1 ' R, 2, 1.28 ■• : : CALL VCHflRt! P+l , 2 ■ 1 29 ■■ : = CALL. V 
CHRP':' R+? ■ ? . 138 '-> ■ : CR|..|.. Vi'iHflRi" p+3, ? , 1.31. ':■ : = NEXT p 
408 FnR P-2 Tu 2:1 STEP 4 ■ ■ CALL VCHRR-: R, 31 , l 32 > = : CALL VCHF1R 1 :! R+l . 31 .= 1.33 } : ; CALL. 

VCHflRC R+2 . 3 1. , 1. 34 :> ■ ■ CA!....!... Vr"HF!P< P-i-3 . 31 , 135 > ; : NEXT P 
410 FOR R---2 TO 29 STEP 4 :; CALL VCHF|R( :L ■ R ■ 136 ■■ : : CALL VCHRR-:: 1 , P+l > 137 } : : CALL V 
r Hfl PC 1 : P+3, 1.33): : CR!.!.. VC HRP 1 ' 1 =P+3, 1..39 ':- ■■ ■ MEXT R := f": R !..!.... HCHflR':" 1 . .• 30, 1.36, 2 } 
428 FAP P :: =4 TO 16 3 TER 2 ■ ■■ rRij. VCHARr R , 4 ■ 1. 33 } ■ ■ i' -, AI. I. VCHAR(P+1. , 4, 1 33 > : : CALL V 
CHihP':' R-i-2 ■ - ::! - ■ 1 34 ':> ■ : HEXT P 
438 FOR P==5 Tu 17 STEP 3 ;: CA!.! '■'CHAP': P , ^ ■ 1 2 C| ■' : ; NEXT R ■= FOP P-1 TO 1.9 STEP 3 

:: CALL VCHAR'.' P. : :it ■ 1.27 ■■ ; : HFXT P 
440 FOP P ::: "4 TA 16 ^TFF' 2 ■■ CAM.. VC MAR 1 ' P ■ ,::: i - 12' ::: i > ■ ■ NEXT R :: F'OR 9~f< TO 19 STEP 3 

: : rf\\ ! VCHAR 1 :' F -■ t:: i ■ 1 24 ''■ : : HEXT" P 
4 c:: iA !"'AL ! H'"" MAP-:' 1 , 2 . 1 ?6 "}■■ ■ CR!!. HCHRP 1 ' 21. . 2 . 1.24 ".' ■ ■ F'RR P- : 3 TO 21. STEP 3 :: i":AI !.. VC 
HARi' P, :'- : :j , 1 2^ ':■ : ; NFXT P = = fR!....!. HrHflP 1 ' 21. ■ 3 - 1.43 , 2. "■ 

4 fM f. '!'■-■ p! hV h !",: ;P :::-, 1 'v-;T/'E j :" ' :::i } ■ "RAT HT C . ' " — D| SRI..PV AT( 22 . 1. 6 }S'f.7Fv 6 ■' ; "! '[FFS;" •; 
CA! !.. HCI-IAR' 1 " ;"■;? . 2 c i . 1 1 :' :: : . t:: , '< 

4 7 r-i T 3; P !. . H V ! ::: l "!' •"" 2 2 , 1 '■> '"■ '!' :"■ F" '"' ° "« ■ " H T 2 1 "' ü P F = " ■ : D T S P I. Fl V fl T ( 2 3 - 1 ^ "' S 1 7 F 

!'"> !' : :: ; P ! A V R T ■:' 2 m , 1. ) S 1 7 F ':' ,::: i "' ; " 1 T i ::: T ■+■ ' ' 

430 CR! ! C! ::: ! SPP T"JT'" R{.\ <■ !'"'h! ! HARN T i" ; "v'f:' \ 'j 

.-lyti Chi 1 ! ppiv' ■ : !'.;ri:-;l IR 333 ■ : 333! !p 2fM 

e: - m m j...| ™ ■■::; ;"> ■ V :::: 4 M ; : i'" i :: i I . !.. D E ! : ::: : P ! :;: ' T T ! : ^ ! ; "! M.::' 

c:: i1 M i'"'! : 'l! ! sPpT'T'hi:' 11:'! , ! 1 ;;-' , 1. ! ::: ; . "- : :3 . 4M . #7 ■ '!;' :: ' , l;: v, : ::: ; . F '■■■', . #33 , " :: :" :: ' .'!.'! ni . 332 ':< 

C : - s ! ! Pl~l! .I'il It'" 1 1 ■ *f ■ l!h! !' ! ' f.' F:"!-.nV:|; ■-■|/| i-l- 1 ! ,!(!"! ) S"-!i. ; i . r -i43 . SRI ' , '■',>- i : l . r "i : Vi , S '!' ! iZ <"a\a -. i I ii-i .i.l 

30 .. 640 , 650 .. 660 , 670 , 680 , 699 , 700 ,710 , 720 
539 A*="00£4247E427E4£81" == GOTO 780 

GOTO 730 ■ 

GOTO 730 

GOTO 730 

GOTO 730 

GOTO 730 

■GOTO 730 

GOTO 730 

GOTO 730 

GOTO 780 

GOTO 730 



~<|VP : " 



I". ,■■'!.- , I". 



•540 A$= M 6699997E:?47EA5A5 
550 A$= ,, 81C36699997E2418" 
560 fl*- " 6699997E245A99A5 " 
570 fl$= l, 42E799996666D f 881 " 
58^ fl*« " 1 87EFF9999FFD899 " 
590 fl* = " 003 C 7 E 9 9F F 7 E 4 2C 3 ' ' 
600 A*- " 1 C3E6B7F223E2277 " 
6 1 fl*= " 92BflD67C6C3892FE " 
620 fl*« " 3 1 423C5A7E 1 824E7 " 
g 3 fi fl$ = ' ' ?45 fl 9 98 D 3C 5 R6 6 1 8 " 
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640 RS=''66993C5R247E81E7" : : GOTO 730 

65fl fi$= , 'FF99FF5R0000R5FF' 1 : : GOTO 736 

6 6 fi*=' , 3C7E^9FFFFDBR5FF' 1 = ■ GOTO 730 

670 R*™"183C563C52492fl49" = = GOTO 730 

680 R*="FF9999FFE7C3r:381 " :: GOTO 730 

6«r R$="3C7EFF99FF9981FF" : : GOTO 730 

70 Fi fi $ = " 8 6 66 6 8 w 3 C 6 & C 3 81" : : G T 7 3 

7 1 1 -i fl $ = " R5 F F 9 9 5R 3 C 5 R 8 1 8 1 " : : G T 7 3 8 

7 8 i"i P S « " ; : : : i R *-« 5 R : -: C 2 4 3 C 4 2 C 3 ' ' 

7 3 C Fl!.. !.... H R R ( 9 6 , fl$ *:> ; = C Fl I... !. . SP R 1 T E ( # 2 .96.. F fl .. 32 .. 23 2 .> # 3 .- 9 6 .- F R .. 36 .■ 4 .< # 4 .. 3&.> FR - 80 .. 23 

2 . #5 , «fj , FR . '1 04 . 40 .. #6 ■ 96 .. FF! .. 1 28 - 232 > : : GOTO 1 200 

7 4 O R L !. .. C 1 !■■■! '■ R !.... L , H I T > : : I F H I T THE N 8 10 : : C RL L P S I T I OH( #28. X 1 ■ X 2 ) : : I F X2< 60 

THEH 1320 Fl RF' TF X2>2Fi0 THEN 1220 
75tf CR!....!... J0V3T(2,X.V':'^ IF X-0 RHD V-@ TUEN 740 ELSE IF X"4 THEH CALL PflTTERN''.#l 
,11?i:: VwV+8 :: FR- 113 :: GOTO 780 

760 IF X -■■- 4 THEN CR!....!.. PRiTERKK #1 ■ 1 14 ) = = V«y-g = : PR~1. 15 :: GOTO 788 ELSE IF V-4 
T H F H f": R ! I PfiT T E P HC # 1 , 1 1 6 > : : H :: - : H- 8 : ; Pf\ "■■■ 1 '!. 7 ■ : G T 7 8 
77m IF V™ d. THFM i":R!. I. PR"I "TERW #1 • 1 17 ) ■ ■ H=*H+8 = : PF!=-116 

7 3 O C R !... I... C 1 H C -:' R !. ..!... !-! I T ':>■ ■ I F H I T T HE H 810 ; = C R !.... L !... C RT E < # 1 > H ■ V > = : CALL PRTT ERN< 
#;! ,PFi:. 

7 9 C R !.!... f": 1 N C ( R !.... f. . = H I T ) : : I F !■••! I T T HE N 8 1 8 : ; CR !.... L G C H RR ( H/' 8 + 1 .- V •■•" 8 + 1 • C ) = = I F 032 
THEH 7-40 

80 O TF f"::=RR TMFN 8 8 Ff Fl. SF IF Ol 27 THEN 81.0 ELSE IF C=43 THEN 1240 ELSE 740 

8 1 T T ™ T T + 1 : : F L ~ 5 : : C R !.... !.... E LS PF: T f E < # 2 .■ # 3 ■ # 4 ■ # 5 , # 6 , # 28 ) 

8 2 FL ~F' L + 3 : : C H !. !. ,;:: : 1. 1 !■■! D C 2 @ • 3 30 + '■ F L 1 1 > .< .■ 33 5 +< FL * 1 > .- .■ 3 40 + ■' FL % 1 > .• > 

830 CR! L POSITIOHC#1..2:S.'SS>— IF ZS<13? THEN CRLL M0TI0N(#1 .• FL.- Ö > : : GOTO 820 ELS 
E CR!. !. MOTION':: #1 .. 0.. 8 > 

!-; c!. f: Fi | | ! f R T F «:' # 1 - 1 ^ 4 . 8 3 ■' ; : CR!..!.. P R T T E R H < \\ 1 ■ 1 1. 8 ■■ 

350 EHR X-X TO 30 8TFP 2 .5 :: CR!....!.... SOUND«:: -5S0.. -6. I ■' : : CRLL PRTTERH< #1 , 1 19 >■ ■ FOR 
f :: .:rj in ;!R •= NFXT D ;: CR!..!. F'RTTERhK #1 .. 1 1.8 ■' : ; FOR |>=:1. TO 10 :: HEXT D :: HEXT I 
8 6 O fl !.L E !. . - ::: ; P P I T f ■: %■ 1 ■' ^ : C R !.... l... HC h R R ( 2 2 , 25 , 4 1 , T O T ')■■■■ I F t T ™ 5 T he n 1 6 
h70 H=32 :: V=40 :: G03I.IR 840 = = . G0SU8 890 :: GOTO 518 
;::: ; p, @ !-.){.. i == j-.[ II + F'i. j : : |"> T ' ::: i f -■ [ . ! :: i v R "[' < 2 2 , i > 3 1 Z E < S > : H U : : CRL L. H CHRR >:'. C H ■■•■' 8 >+ 1 .• >'■ V ^ 8 ) + 1 , 32 > - : 

GOTO 7 4 Fi 

Fl90 !i...e:i:tfrri..!frr!i 

900 D" : =i : : PP=0 : : F'OP ! " :: > : : TH 18 STEP 3 

9 [ I?) J--t .- j '■(:::■.: [ J | I ^ ■' RHOP- < 20" 1 1 + 1. ■' "'"I" 1 1. ■' + [> '? 

'~* 2 O I F ( S G !-! '■ M '■ !. ') •••- PP > < : : - D "' T !-[ E !-.[ R 1. 

930 CRLL VCHRR 1 ' !.. ■ M 1 - !. "'.4 0,2 V: RP-I^K !. . ':< ■■ ■ n---D :: NFXT f.... =■ RETURH 

9 4 Fi C i ::: ! L. !.. D E !. .. S P P T T E < ft 1 ':- ■ : F F.; I ... ~ 6 T 1 8 3 T E P 3 

8 5 O C R L L V H R R ( f ■ f'i 1 - !... ■' ■ I N T ■■ R H D * >-. 1 4- 3 -- 1 4 8 + 1. ) -' + 1 4 ;« : : CR L L V C H R R ( !... + 1 .- M ( L ) t I N T < RHD*< 1 

39 ;|. 3 ^; ■■!■■ 1 --':■ ■!■■!. 36;. • = CR!..!.... V C HR R C !..+;? . M >:: I ... >., 32 "> ■ ■ HEXT L :: CRLL FF :: RETURN 

9 f, pt p 1 1 :3: r j -j t '■' R !■■! r> :f ■:' 1. 2 + 1 > j + 8 Fi = T F p! .! < ! : i O T H E N 9 3 E !.... 3 F CRL L S U ND( 250 > 2 6 i - 9 .> 329 

. 9 ■ 29 1 , 8 ) : : CR! . !. 801. JN [Y ?50 . 349 ■ 1 8 ■ 440 , 1. 2 , 523 ■ 1 2 Z 1 

9 7 Fi FR!., i si'i! IN(V ;? c iO . ■' :: "::: 1 1 ■ 1 4 ■ 49'"^ , '! 4 .. ''187 .. 1. 4 ) : : CRL.L S0OND( 4 1 00 .■ 1 046 ■ 1 6 .■ 733 .. 1 6 .• 329 .. 1 6 



| ! -in . ' ' I ! : ' !•.!' 1= ! I ■!'■ I ISO 

■ •• ■: 1 ■ :'t,.: '1.1, ••-•!. - -.i.'..- ; ■ • 1 ■ -:•.:■ • 

1 i'- !i' r :f,— ■■ iL iL ■: H .1- -■ *i ■■ 1" 

! . ! I . ? -!. ■■ ! 1- :i .'I :-.:,. '1 ■ 1 . 1 : 

1 i • 1 -m. ■ 1 11 "11 "ii"- ■!'■ ■ 11 '■ ■ -I II •'"■■■': 

: i 1 : - • -f.- " i"i: i '. • li ■ ' l • ■■■':' !; • ' i • 
i ii 1 •:. 'i i ii ii i ; .{■-•■ : 

1 ■■ t ■:. -i- ,i . ■ : 1 : ■ ■■ ' 

- ■ ■■- . I 11. "i i |i .1 1. ■ n i =•■•: : " r . • 1: • " 

■1 ' • |i i ■ = 1' . > .-.,:■ 

•I. ' 1 ■■ M ■ ■ 1 M ■ ■'-'■ ■■' 

• ■ ' 1 - "•■: l"i ! 1 :■■■ 

' : , ■■■ ! "■■: :' '■ 1 1 

l . 1. ■= < ■ ' ■: 1 



: :>.• i ."■ I 

.1 • ■■■!-.. i ■ ■■ I ■■" 



ÜMU 1 1 KM 

GFl'T'fl •'! te'Fl 

riO'T'O 1 1 60 

("O'TO 1. 1 60 

GOTO 1 li-ifl 

r;oTO 1 1. 6 Fi 

GOTO 1. 1 60 

r; n "Fi"! 1 I 60 

r:;iVf'0 '!. 1 60 

GOTO 1.1. 6 Fi 

GOTfi 1 l 60 

GiTT'O 1 1 60 

GOT' 1 '"! 1 1.6 Fi 

GOT Fi 1 1 60 

üiTii ! '! Fi! i 

i"::i"! T'i"! 1 1 6 m 
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POP PLR77M TO 3 



"1. 15(5 B $ « • ' 000 8 F 1 0C 8 H ?C 48 "5 C " 

11 60 CRLL CHhR< S8..BSJ- V3..ST=0 ^ FRF: 3 YMF:!™ 5 jn 17 STEP 3 

1 1 7 V*' S - T NT C F ND * '■ 3 Fi ■- 8 + 1. ■' ') + 8 : : C Fi LI.. G C H RR '■ 3 V !'■'! B .. V 3 • 3 T > 

] 1. 8 Fi I F S T - 3 £ T HE H C Rl. .. L. H HR R < P Y rtp . V P . 8 8 > E I. 3 E 1. 1. 7 8 

1 1 90 NFXT PI RT7 ; ; NFXT 8VMB : : PET' (PH 

1 800 3 b = 4 ; ; PER R 3 1 .. 8 3 - 9 8 ■ 8 4 , 8 5 , 8 7 ; : I. F 8 7 = 5 T H F H P E S T P F 1 P 9 Fi 

1210 Sl'ssSl+LEV' : ; 3?s=S?+!. FV ■ : pr^PP-fFFV : : S4=S4+L..EV : : 35=35+!.. EV : ; P^PiPH.EV 

1 329 CR! L MOT I OM< #28 .. Fi , ~Sö , #9 , Fs , --S 1 .. #3 ■ Fi . S? ■ #4 * ■ 8""' . # c: i - .< 34 > #6 .■ .■ -35 > : : GOTO 75 

Fi 

1 2 3 Fi CR!...!... MOT TON':' #28: . Fi , pp . #2 . Fi . 81. . #3 . . -3? ■ #4 ; Fi . 33 ■ #5 ■ ■ -34 ■ #6 < @\< 35 ■' : : C'JOTO '7 PO 

:! 2 40 C R !.... L D F !. 3 P P I T F ■; # 2 .■ 41= 3 • # 4 .- # |:::; ■ & ^ - : ! :!: ' : ' 3 ■"' : : ! : ' T 9 f:1, !. . R V R T ( 9 ■ 1. '■' 3 1 7F < 5 ' > : " ' " 

1.250 CRLL HCHRP'. 20.4 ■ 43. 3> : : FRF 1 I--1. TO 3 :: FOP R=0 TH 30.8TFP ! ;:i ■■ ■. CRLL -SjOUNlX 

—99 * €>S'P- .' R ' 1 924 ■ R ':• 

\2 fM HEXT R :: CRM. RHRRi:' 43 . KRüEP' : ■ F'OR R™0"TO 9 Fi PTF'P 5 :: CRLL. 30UH!>; 99 ■ 5^4 < H ■ 

1527.RV: HEXT R :: CRM. CHRP 1 ' 43.« Kl* "• : : NFXT T :: CRLL. HP HRP':' 20 '. 4.. 32.- 3 > 

■ig70 pnp t~:2 "fu P ■ CRLL MOT TON'' #T , Fi, Fi '; : : NFXT T :: CRM 8 1 "i !.!!•■! D«:' "-4250 4.. ) : : FO 

P LI-ö TO 1.6 STEP 2 = = HR !.!... LOCRTE 1 :' #7 , 8, |.T ':< : ■ NFX T LT 

i v;~: fi CRLL ROUND 1 ' 4250 . -3 ■ 9 V : POP PU~8 TO 1.52 8TFF' 3 ;: CR' 1 !. CPhTP'' #7.. PLL IP) : ; 

NFXT PU 

12 90 CRLL SOUNtV Ay'rM . - M 9 '"' : ■ FOP' PF" :;; U : " TO 48 : CALL !. Ar-RTF 1 : #7 > 1 52, PF ':■ : : NFXT P 

E 

120 9 CR ! . , !..., 8 QU N '■ 4 8 5 R 3 , p ':= = = p i "i p ! T ;; : ;' ™ 4 9 t n 1. r 3 t F P I : C Fi I. !. !... C ! ::; ! T F ■:' # 1. • 1. c:: i 8 ■ !. . T ■/. 

.#7, 1.52.L.I7::'- ; NFXT LT 2 

1. 3 1 O Ff iL !.. S U ND < •- 4 2 5 O .■ - 8 .. " : "' "> : : F' n F H n 7 -: 1 5 ? "!" n 8 ' ::: : T F P 2 : C Ri .. !. . !. .. R T P <:' it 1 , H 7 .■■ 1 €• .• 

#7. HR 7, 1b V : NFXT MO 7 

13 vc?) r.fili 80 UND 1 ' 4250.. -4. 1 ':>: : F'OR PF7-16 TO FX 8"!"FP 2 : " RR!.!.. ! -OCftTF/ #:M 8 . P.E.? • #7 

-R..PE2"' :: HEXT PF7 :: CRM. DFL SPF^TTF 1 " #1 "' : : CR! L POUND( -■ '!..- 4 RR 00 ■ 80 j 

1 :'»! :' : i: 8C :::;: 3 C + NU : : D 1 8 Pf. R V h T ■:' : ::: ' 3 , 8 3: ) 8 '[ ,7! F '■ 5 ■' : 3 1"' : : N ' ! ~ : D 1 8 P L R V" R "f ' < 3 2 .. 1. ':< '-• T ? F < 5 ) 

• HU : : PR! ! Hr:!-n : iP':' 2 ■ IHK F'! : v-"'"' >i-1 ■ 1 05 "< ■ : EX : "FX 1.8 : : CR! L LOCRTPC #7 ■ P- ■ F' :r - : ' 

1340 T-300 : : RR! ! pRRNn«:' I' : ?f\? , ;:-■ ) = : CR !....!... SOI !NF>" T ■ 2: 9 4 < 3 ':• : : f.f\\. \ . ROUND-:' ?tl ■ 330 - 8 ':• = 
; CR! L.. 30UNDT 3 1 "!".-' 4 . 349 . '?. • 44" ■ 2 '■' : : CR!. !.. R(JU ND( T -"4 ■ 3:32 .. 8 "> 

1 35fl' CRLl SO! !!■■![':•'■ "f'--'2 . 440 , ?. > -■ ■ PR!. ! PLi! !HD'" T •'2 ■ 494 . 2 , W 1. . ; : "' ■' : ■ CR!.. !. . RON !"•!!>■ T . 529 ■ 5 ■ 39 

1 .. 4.. 329.: FM 

1:' :: !60 LEV=LFV+1 : : PH=:PN+1. ■ ■ TP PN™ 1.0 THFN 1.3' ;: :Fi 

1270 RR! ! ! PER =: PTsPi rv R"!"M ;:: 'Fi , 1 "'8T7P'' 5 ■' ■■, "!.. TF-T+" :: H-3' :: ' :: V-4R ■■ CRP HR 940 : 

: COSRR 890 : : C08MB 9P,0 ■ ufTTTr 5'U" : ! 

1. 3 RR G S'. ! F: 9 4 Fi = ■ R '[ P P !. R V R T < ,:;: i = ;::: : "■ ,::; : T 7 F" < 9 1. j ; " P '!' E H ! ::: ! !3 F N R L ! F ':: : : R F C K E " ; D T 3 P !. . R V R "!" ( 

S ■ 6 > 8 1 7 F >:' 2 :3 ) ; " C l J T N R C H R E N QF R P H C H "f ' V ' ' 

1 390 Dt SP! RV R"D' 1 1 . 8i ''P'I'PP':' I ,:! > : !I FP KR NN N("ii':H RF^ppPp' 1 : : RIPPLRV RT' 1 "' 1.4 • P '>PT7P«:' 2 Fi ':- = 

"WFRDFNV" f\\,.^0 \ OPV" 

1 4F1 n 1 c ; p j ^ y p. j ,;■ 1 7 , ,:::; -, c : ] 7' p - p 3 v " p p n R '[ p p p n s t P F ' ::: ; P 1 T T F V ' ' 

141.0 CR! !.... POi.JhiD':' 7 Fi Fi ■ 4000 = 3 Fi '■ : = T' :::: " :: !P0 : : CR!. ! P n U MD ■■ "!" . 330 . 2 ■ '! 81. . f. '■ : CRLL. ROUND '■ "!" 

, 380 , 3 . 1 3 1 • P :■ : : CRI . L. 30! m\y: r , -549 , 3 . 1 ■'-; 1 , P > 

1 4-20 CRI. !.... pni.H-J !':•(' ']" , 899 . 2 ■ 1 8 1. ■ ^ "■'■ ■ ' CR!. ! PRf 'LS!V T ■ - :: '99 • 3 • 1 47 . P *> ■ ■ FR!.! . ' : :;: ;R! jl-iD«:; "[' ., 349 . 3 .. 

1 47 . 6 > 

1480 CRLL SOMND 1 ' "!" • 98R , " :: : . 1 47 . ^ "> ■ ■ PRI . I Pi"i! iNfu- t . 994.. 3 . 1 47 ■ £■■ "■< ■ ; PFÜ. !.. SOUNDS T .- 262.. 2 .. 

1 6 c "i . 6 '> 

1 4 40 r;R L... L 3 1. 1 ND < "i" .. 2 P 2 , : " : ; . 1. 6 5 - 7 ':- : ; '": R L ! ,::: : n 1 . 1 N D ( T . 3 9 4 ■ 3 - 1. 7 ! :r -i , h "> ; = C Rl . !.. 8 1. J N D < T .. 3 3 O .. 2 , 

1.76.5) 

1 4PiFi CR!...!.. 80' INf>:' 7t. \ ,, c: s . 994 , ;; :: ' . | RP , 7 "> : = CR!. .!.... 9 RUND''' T ■■■'2 ■ 2P2 . 8 , 1 9f, -. '? ') ■ CRLL PO!.! HD 1 ' 4% 

T . ?.£? . 4.. 16^ - 7 ■ 181. ■ 8 " i : : r-Ri 1 p"f ■ : PRI...! ff 

14PR IF PC-P-NCC THFN ! P.?i :: i 

■; 4 -?)4 y\ P C : " : P C '- ■ C R !..!.. P !. J !■■! D '-' 3 ■ 4 4 j:: ! 4 .- 8 Fi ">. ■ D 1 3 f :: * I . . R V RT ■:' 3 3 . 1. i; : i ':« 8 T 7 p >:" ,::l ; ':> : ! •■] p p 

1400 "f' : -50Ff :: M-TfP "4 =: PRL! DE! PPP TTF""' #7 "' 

1. 49 C R !....!. ! F F P ■ : C R ! I 9 1 ! H ' "' '■' 1 > C| 9 9 9 , 3 Fl . '■' : : C R !.!... P !.. ! N D CM, 1 ,::: ; P , P "> ■ - D T S P [ ... R Y R 1" < ! "i ■ P "> 8 

1 7E ( 9 4 > ■ " f "• R 8 T c: : "!" F '! H F ! -■! F !. I F " ■ ■ F: Fl ! ! * ::: : R l ..! N ! "j ( "!'' / 4 . ;:"' R 8 . 5 ':■ 

1 '"! RR ' C R ! !.. ■•" 0! 1 ND '■ T .. 2 P 2 < 8 > : : P R !. . ! 8 R ! I N D ■' 1 1 .- :3P 2 - 4 ':■ : : ! ■■ T P P !. R Y R T '■ P .- P '■' 9 T " ::J P t 2 4 ':- : " B F 3 T L E 

IST! J HP V DRF !. I F P " ■ : 1": R 1. . !. 8 Fi 1 1 N !" '' ■' T ■'' 4 .. 2 8 :9 , 4 ) 

1 c =i 1 PRI ! ROUND'- ! I ■ 288 ■ 8 ':< ■ ■ D T SP! RY R TT' 1. 1. , P jp T 7Pc; pp > = " P T Np 90LIDFRMEL..0D I F V " : : CR! . 

| sn!JND( T/4 , 2P8 , 4 ':■ : : PR!. I. SOUND 1 ; T-H 1 , 1 7 t: i . :' :: ; , 1 39 - 1. 9 ':■ ' 

1. 59 Fi D ! 3 P ! R V Fi T < 1 4 . 6 "> 8 1 ?. F ( 8 4 ':> ■ " M R P H E N 8 T F N E I T EP 3 R V " : : C R !. !. . 8 ! . I |,J D '■ T ■ ■" d ■■ 3 2 O = 3 ■■ : : 

PRL! SOUNrX LI ■ 9 Fi 3 ■ 8 "■' '■ ■ PFÜ ! ' :: ;i"'i IWD< T --^- ■■ 2P9.. 2 ':• : : CR! .!.. PIJI.1ND'; ' l ■ 277 = 2 .. ;933 . 8 ':< 
1 5 3 D 1 3 PL fl V R T < 1. 7 .. P ::• 8 T ?. E '■' 2 4 ) : " ■■-; "!" E T p P P N P I E 3 1 CH * ' : : C R I. !... 3 1 IN !'"' <■ T ■■•' 4 . 2 P 2 , 3 ■' : : C R !.... 
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! SOUND-:: U , 233 ,2,1 96 , S'>- ■ CALL LEER ■ ■ CALL SOUND< T/4 , 277 , 2 ) 

1^40 DISPLAY HT':5,6>S:EZE(24>="ES GEHT GLEICH WEITER" ■■ CALL SÜUNDCU, 196, 2.. 156.8 
■■ ■ : CR!.. L 80 UND 1 ; T/4 , 233 , 2 > < • CALL SOUND/ U .- 165,3,131,8) 
1 550 D I SPL AV- R'TX 9 , 6 >S I ZE< 24 > = " MIT EI HER NEUEN RUNDEV " 

1560 CALL SOUNIXT/4. 1.96,3 V = CALL SÜUND< T+U, 262, 2 ')■■ •■ CALL SOUND* T/4. 233, 4 >■ •- CPU. 
L 80 UND < U , 220 , 4 , 1 75 , 1 > 

1.570 DISPLAY RT< 1 1, ■ 6)SIZE< 24 > : "ABER BITTE NUR DANN" 

1 530 CALL SOUND':: T/4 , 1 75 , 4 ) ' - CALL SQUND< U , 233 , 2 , 1 1 7 , 1 © ')■ ■ CALL 80UND< T/4 , 277 , 3 > « 
= f > I SP L A V AT ■:'. 1 4 , 6 >S I Z E '• 2 4 > : " !■■■! ENH S I E DAS WO LL EN V " 

1 c; i90 CALL SOUNDc: U , 1 9g , 4 , 1. 5b , 1 ) •• ■ CALL SOUND':: f /4 , 1 56 , 4 ) ■ •■ CALL SOUHDC 2*T , 208 , 2 ) •■ 
■ D I S P !.. . A V R T ■:: ! 7 , 6 )S I Z E< 2 4 V " E 3 L I E G '!" NU R AN I HNE N V " ; = GOTO 1 6 30 
■im® GOSUB 940 ■• ■■ DISPLAY RTC 5, 7>SIZEa9> = "LEIDER HAT ES NICHT" •■ ■ DISPLAY RK8, 
7 ::-SIZE':: 9 ':>■ "GEKLAPPT V" .= = DISPLAY AT< 1. 1 , 7 >SIZEX 28 ) = "LASSEN SIE BITTE DEN" 
IS 19 DISPLAY ATa4,7>8:E2E<22>:"i<0PF'NICMT HAENGEN UND" - ■■ DISPLAY ATU7, 7>SIZE<2 
1 > ■ " W R G EN S I E E S HOC HM Hl... V ' ' 
1 6 20 D I SP L R Y AT < 2 3 .< 1. ) S I ZE < 5 > : N S C 

1 630 FÜR I =2 TO 5 = : CR!...!.... SPP I TE< # I . '96 , FR , 1 52 , 256 ..0,1 NT< RND*35+S •' > : : NEXT I 
1. 6 4 R D T SPL A Y R T ■:'. 20 . 7 ) S I Z E C 2 > = " N EUES SPIE !.... , I / N ? " ' : : CA L. L F F 

1£50 CALL KEY(3,T,S "■'■■■ IF T™78 THEN END ELSE IF T=74 TUEN 1660 ELSE DISPLAY RTC 2 
O .. 7 >S I Z£( 20 ■■ : RR "!'$■:' CHESK 88 XxCHRSK 32 ) , 1 > : : CALL FF : : GOTO i 648 

1 £60 L E V , N f.. I , TOT , S C , RN «0 • ■■ F X™ 2 3 2 : ■ CR!.... L ... I ... EE R : : DI S PLR Y AT ( 22 , 1 ) S I ZE < 5 ) ■ NU « • ' 
D T SP!.. R Y AT< 23 , 23 )S I ZE 1 ' 5 ) : SC 
1 6 7 C AL !. .. H HRP ( 2 , 5 , 3 2 , 2 6 -■ ; : C H !. ... !.. HC H RR ■:'. 2 2 , 2 5 , 1 1 3 .- ' 5 ':>■ ■■ GO SUB 890 ■ ■ G ÖSUB 1 1 60 : 
: D I S P !.... R Y R T ( v , 1 ::> s I ZE ( g ::■ = ■ » I ... ;r F T + " = = G T 500 

1 Am DATA 2 - 4 , 4 ,. 2 . 3 , , 2 , 2 . 4 , 4 , 3 , , 3 , 4 , 3 , Z , 2 , , 2 , 2 .■ 3 , 3 , 4 , , 3 , 3 , 4 , 3 , 4 , , 2 . 3 , 3 .. 3 , 4 .. 
PI 
1 6 ,: ^0 DR TR 2 . 4 , 3 , 3 . 4 , , 2 - 3 , 3 , 4 /?. , , 2 , 4 .. 2 , 4 ,2,0 , 3 , 2 .■ 1 . 4 . 3 , , 2 , 4 , 2 ■ 3 ■ 4 ■ . 2 . 4 . 3 . 2 • 4 ■ 

.. I 

1 70R SUB FF ;: FB-I.HT<RHD*< T. 4-3+1. ) >+3 

1. 7 1 F C - 1 N T < RN % •:' 1. 4 - 3+ 1 > > + 3 ■ ■ I F F C =F B TH EN 1 7 1 

1 7 20 FD == I N T < R N 1 ■:" 1. 4 - 3 + 1. ':■ > + 3 = : I F F D ■■■ F C RR FD =~F B T H E N 1 7 2 8 

1730 P"E«INT<TRND:*tf 1 4-3+1 ) Vi» 3 :: [,F FE™ FD OR FE -FC DR FE=FB THEN 1738 

I • •=• 4 pi p G ~- 1 H T ■: RN D * <. 1. 4 •-■ 3 + 1 - ( > + 3 : : I F F G »FC R F G " : F B OR F G "FE R F G« FD THEN 1740 

1 7'"ii/t r:R( .J„. COLOR»; 1 2 , FC , 2 , 1 3 .■ FC ■ 2 , 1 4 , FB , 2 , 2. , FE , 2 , 1 .. FD , 2 , 8 , FG , 2 ':■ = ■ SUBEND 

1 760 SUB TASTER 

1 7 7 O D I S P !.... R Y R T ( :- ;: ' 4 . 2 ':' = ". . 1 Y S T I CK •- T A S T E P 2 D RU E CK E N ' " 

17 AR CALL KEY':: 2 . T . S ::« : : IF S»-0 OR TOI. 3 THEN 1770 

1 790 Cfil. I.. i"":!. F RR : = SU BEN!:" 1 

iftOi-i SMB !. FFP ■ ■■ Fnp T™"i TTi 30 STEP :-: == Pfll I HCHRPf T . 8 , :-:2 . 2:' : i ':■ ■ ■ NFXT i :: SMBFN 

D 
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magno hocte Computer 

CASSETTEN - VQN EINEM 

DER FÜHRENDEN 

CASSETTENHERSTELLER IN 

DEUTSCHLAND. 

DURCH HÖCHSTE GENA JJGttEJT 

DER EINZELNEN BAUTEILE 

ENTSTEHEN HOCHPRÄZISE 



magno hone cqhipjteh 

CASSETTEN BESITZEN EIN 
MAGNETISCHES LEADERBAND. 
DESHALB UNIVERSELL 
EINSETZBAR AUF ALLEN 
HANDELSÜBLICHEN 
CAESETTEN-BECQRDERN 



CASSETTENGEHflUEE, DIE 
EINEN EINWANDFREIEN 
LEICHTEM LAUF IN IHREM 
RECORDER GARANTIEREN. 

DIE SPIEGELGLATTE 

BflNDDBERFLÄCHE BESTEHT 
AUS SUPERFEINEN MAGNET- 
PARTIKELN. 







magno bdx zum archi- 
vieren IHRER WERTVOLLEN 
COMPUTER-CABSETTEN. 
UMBEGRENZT 
AN- UND AUSBAUFÄHIG. 

FRAGEN SIE IHREN 
FACHHÄNDLER. 




magno torträger Vertriebs 

Bunzlauer Straße • Postfach 40 03 40 • 5000 Köln 40 
Telefon (0 22 34) 7 40 54 • Telex 8 89 975 



DIE HOHE SPEICHERDICHTE 
ERLAUBT EINE HERVOR- 
RAGENDE AUFZEICHNUNG UND 
SPEICHERUNG IHRER 
WERTVOLLEN PROGRAMME 
UND DATEN. 

LIEFERBAR MIT IQ, 20 
UND 30 MINUTEN 
SPEICHERKAPAZITÄT. 
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Ferienzentrum Schloß Dankem 




4 läge: (nu 
.1 Woche 

2 Wochen 

3 Wochen 



rPfingstt 



-)) 350,- DM 
550.- DM 
980- DM 
1480,- DM 



D i e Pr (i is c gelt e n fü rUntc. rb ring u n g mit Vollpension ; die 
Kurse und fast alle Freizeitmöglichkeiten sind inklu- 
sive. 

Sondertarife für Gruppen oder Schulklassen auf Anfrage. 
Eilern, d< e in re Kinde r b eg ie itc-n wu il e : r. s i r j d dazu r r e rz- 
','V' 1 i^nzc'acSen - rufen Sie uns einfach an! 



Linste ige r, fortgeschrittene und „Gacks" werden bei uns 

von qualifizierten Pädagogen bzw. Informatikern betreut, Fast zuWe/( um fl//es au f ZUZ ahien: 
die es verstehen, individuell au j den W/s sensstan a jedes p n Y reiten,Schwimmba<t, Minigolfjischtennis, Rie- 
Teilnehmers einzugehen und Informationen spielerisch senspielplatz mit Tarzanschaukel, Westernfort, 
zu vermitteln. Fahrradkorussel, Pferderennen, Kletterturm, Rie- 

senrutsebe... alles im Preis enthalten! Darüberhin- 
aus Kegelbahnen, Autoscooter, Modeltflugplatz, 
Fernsehräume, und auf dem Wasser Wasserskilift, 
Windsurfen, Wasserfahrräder, Tret- und Ruder- 
boote... 

Nicht zu vergessen das 300 jähre alte Schloß, das zur m ~ Xjimsims . 
Besichtigung einlädt, genauso wie mehrere Cafes, ' '"*'- ** 
Restaurants, ein Ferienkino, eine Super-Disco.. . . 

Haben wir etwas vergessen? Ach ja - einkaufen kann 
mana u ch - soga r sonntags ! 

'Wir finden: Ein insgesamt überzeugendes Angebot, das 
sich er a uch Computerfans begeistern wird. 





• Einführung in Hardware und -Bedienung 

• Einführung <n die Kommunikation um dein Comp l: Lei 
% Ein tu h ru ng i n die P rop.ro mm : e rs p r ac h e n 

• D ie Progr a m m ie rs p rar h e ß.A S / C vc n A -Z 

• BASIC ( ti r Fo n "es ch ni r ■'■ ,-i r 

• Perfektiumereh van Programmen in BASIC 

• Fi n fü h ru ngund Piog ■' a m m ie re n i n M. asch in e nsp reche 

Darüberhinaus aber natürlk hjede Menge detaillierter 
Information wie yum Bespiel BASiC-DialeKte, cd er wie 
m a n ein e n be r eits vo rh a nde neu Comp u i e < o p '. • m c i n ut ■■ 
zen kann, etc. 

Da der Erfolg der Kurse auch von der Verfügbarkeit der 
Gerate abhängt, garantieren wir jedem Teilnehmer 
ein eigenes Gerät, das er mindestens 3 Stunden täg- 
lich nutzen kann. 

Und - wie gesagt - für individuelle Beireu ung ist genauso . 
gesorgt wie für Raum zur Entfaltung von Kr cat: vital und 
Eigeninitiative. - das fordert den wichtigen Erfahrungs- 
austausch. 

Zum Abschluß des Camps erhält jeder Teilnehmer ein 
Abschlußzertifikat, und kann natürlich auch selbst 
e rs l eilt c Prvs' a m rn c etc. mit n a ch f io us c n e h inen, 



Gewohnt wird nicht ip Hotels, Jugendherbergen oder 
Zeltlagern, sondern in supergemütlichen Ferienhäu- 
sern (4 -6 Personen; aus Holz, die in unmittelbarerNähe 
des Schlosses D.ankern und des dazugehörigen Dankern- 
Sees liegen, inmitten eines 150 Hektar großen Ferien- 
zentrums. Übrigens können Eitern auch gerne ihre 
Kinder begleiten - Anfrage beim Buchungsbüro genügt. 

Frühstück, Mittag- und Abendessen sind inklusive. 




Die Camps beginnen jeweils an einem Samstag. Die 
Belegung ist möglich für! Woche, 14 Tage oaer3 Wochen 
(Pfmgs ten nur 4 Jage) . 



Wir freuen uns 
schon auf Sie - 
bis bald! 



Ostern '84 


Pfingsten '84 


14.4.-21.4: 


HWHH 


71.4.-28.4. 


9.6.-12.6.. 


Sommer '84 


Herbst '84 


23.6.-30.6.- 


6.10.-13.10. 


30.6.- 7.7. 


13.10.-20.10. 


7.7.-14.7. 


20.10.-27.10. 


14.7.-21.7. 


27.10.- 3.11. 


21.7.-28.7. 




28.7.- 4.8. 




4.8.-11.8. 




11.8.-18.8. 




18.8.-25.8. 




25.8.- 1.9. 




1.9. - 8.9. 






Ort der Handlung ist das Ferienzentrum Schloß Dan- 
kern, 4472 Haren (Ems). Ein riesiges, landschaftlich 
wunderschön gelegenes Feriengebiet mitten im schönen 
Ems! and. Wie man hinkommt, ist am besten der Karte zu 
entnehmen. Die Bahn (Bahnhof Haren) ist nur etwa 2 km 
entfernt Weitere Fragen beantworten wir gerne - rufen 
Sie uns bitte an. 

Buchungsbüro Computercamp 
Ferienzentrum Schloß Dankern 
Holztwiete 4 D 
2000 Hamburg 52 
Tel.: (040) 82 79 42 
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WÄRGAMES 

Ein spannendes Simulations spiel 
Wie der Name schon sagt., handelt es 
sich hierbei um ein recht kriegeri- 
sches Spiel, bei dem taktisches Kön- 
nen und Glück beim , Würfeln" gefragt 
sind. Es geht darum, die aus 16 Län- 
dern bestehende (fiktive) Welt, die in 4 
Kontinente aufgeteilt ist, zu erobern. 
Nach Eingabe des Programms kann 
das Spiel beginnen (am besten sollte 
das Programm nach der doch recht 
mühseligen Tipparbeit zunächst ab- 
gespeichert werden), und zwar durch 
Eingabe der BASIC- (Baginner's All- 
Purpose Symbolic Instruction Code) 
Vokabel „RUN". Der Computer er- 
stellt zunächst, ein Titelbild (sofern Sie 
sich bei der Eingabe des Listings nicht 
vertippt haben) und meldet sich an- 
schließend mit der Frage nach der An- 
zahl der Mitspieler (2-4). Übrigens: 
Sobald Sie in irgendeiner Situation ei- 
ne Fehleingabe machen, zeigt der 
Computer dies durch einen Signalton 
und durch Wiederholung der Frage- 
stellung an. Anschließend muß jeder 
seinen Namen und ein für seine Trup- 
pen charakteristisches Zeichen ange- 
ben. Nach Erledigung dieser Formali- 
täten erscheint das eigentliche Spiel- 
feld, nachdem die Länder gerecht ver- 
teilt wurden. Jeder Mitspieler kann 
unschwer die ihm gehörenden Länder 
ausmachen, denn diese sind durch das 
Truppenkennzeichen deutlich ge- 
macht. Die Länder enthalten jeweils 
drei zur Identifikation nötige Elemen- 
te, nämlich (1.) die Nummer des Lan- 
des, (2.) das Truppenkennzeichen des 
Besitzers und (3.) die Zahl der dort 
stationierten Truppen. 
Die erste Frage, die dem Spieler der 
gerade an der Reihe ist, gestellt wird, 
ist die, wo seine Truppen positioniert' 
werden sollen. Die Anzahl der zuge- 
teilten Truppen hängt von der Zahl 
der eroberten Kontinente, der der er- 
oberten Länder sowie einem gerech- 
ten Zufallsprinzip ab. Man kann die so 
zur Verfügung gestellten Truppen auf 
ein oder mehrere Länder verteilen, 
gerade so, wie es zum Angriff oder zur 
Verteidigung am günstigsten er- 
scheint. Allerdings darf die Zahl der 
Truppen im Zielland 99 nicht über- 
schreiten. Sobald alle Truppen aufge- 
teilt sind, gelangt man in die Angriffs- 
phase. 

qn 
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Man kann nun entweder durch Einga- 
be von .EN' die Angriffsphase verlas- 
sen und sich auf friedlichere Dinge 
konzentrieren oder aber die Länder, 
die unmittelbar an eigene grenzen, 
angreifen und zu erobern hoffen. Dies 
geschieht, durch Eingabe der Nummer 
des angreifenden Landes. Natürlich 
darf man von einem Land aus nur 
dann angreifen, wenn mehr als eine 
Truppe dort stationiert ist. sonst müß- 
te man das angreifende Land aufge- 
ben, um das neue zu besetzen. Sofern 
diese Bedingung jedoch erfüllt, ist, er- 
scheint das Truppenkennzeichen des 
Angreifers, um darauf aufmerksam zu 
machen, daß dieser mit dem .Würfeln" 
an der Reihe ist. 

Dies geschieht durch Eingabe des 
Truppenkennzeichens. Man kann je- 
weils nur mit höchstens drei Armeen 
gleichzeitig angreifen: das gleiche gilt 
für die Verteidigung. .Nachdem der 
Angreifer fertig gewürfelt hat. ist der 
Verteidiger an der Reihe (man kann 
übrigens auch mit einer Truppe ver- 
teidigen!). Für jeden Truppen Verlust 
seitens des Verteidigers ertönt nach 
dem Würfeln ein tiefer, für jeden des 
Angreifers ein hoher Ton. Sofern der 
Angreifer das Land einnehmen kann, 
ertönt eine Tonfolge. Die Verluste 
werden dadurch errechnet, daß zu- 
nächst die gewürfelten Zahlen der 
Größe nach sortiert und anschließend 
miteinander verglichen werden, das 
heißt: der höchste Wurf des Angrei- 
fers wird mit dem höchsten des Ver- 



teidigers, der zweithöchste des An- 
greifers mit dem zweithöchsten des 
Verteidigers verglichen und so weiter. 
Bei jedem so gewonnenen Vergleich 
wird dem Angreifer eine Truppe ab- 
gezogen, falls seine Zahl kleiner oder 
gleich der des Verteidigers ist, ande- 
renfalls verliert der Verteidiger eine 
Truppe. Sobald letzterer keine Trup- 
pen mehr in seinem Land hat, gilt die- 
ses als erobert. Das heißt, der Angrei- 
fer darf dort mit einer von ihm festge- 
legten Truppenzahl einmarschieren. 
Nach einem solchen Kampf gelangt 
man wieder zum Anfang der Angriffs- 
phase. Will man nochmals vom selben 
Land aus dasselbe feindliche angrei- 
fen, kann man nun ,WH' eingeben, 
anderenfalls verfährt man wie bereits 
am Anfang dieses Abschnitts be- 
schrieben. 

Sobald man mit den Angriffen fertig 
ist, kann man noch abschließend sei- 
ne Truppen aus einem Land in ein an- 
deres verschieben, so wie es strate- 
gisch am günstigsten erscheint. Die- 
ser Programmteil bedarf keiner nähe- 
ren Erläuterung, man muß lediglich 
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darauf achten, daß (1.) beide Länder 
das Eigentum des Spielers sind. (2.) 
daß im Ausgangsland der Verschie- 
bung mindestens eine Truppe ver- 
bleibt, und (3.) daß die Zahl der Trup- 
pen im Zielland 99 nicht übersteigt. 
Auch diesen Modus verläßt man 
durch Eingabe von ,EN\ 
Hiernach ist der nächste Spieler an 
der Reihe. Sobald ein Spieler keine 
Länder mehr besitzt, wird dieser aus 
der Spielreihenfolge gestrichen: er- 



reicht jemand die Länderzahl von 16. 
was der Weltherrschaft entspricht, 
wird er entsprechend geehrt. 
Taktische Hinweise: 
Man sollte sich darum bemühen . jede 
Runde mindestens ein Land zu ero- 
bern, denn dadurch erhöht sich die 
Wahrscheinlichkeit für einen , Trup- 
penbonus • nach dem bereits anfangs 
erwähnten Zufallsprinzip. Man sollte 
darauf achten, seine Kontinente (so- 
fern vorhanden) stets ausreichend 



nach außen hin abzusichern und not- 
falls auf die Eroberung eines Landes 
verzichten, um die Verteidigung wich- 
tiger Gebiete zu garantieren. Die Kon- 
tinente haben unterschiedliche, von 
der Schwierigkeit beim Einnehmen 
und Halten abhängige Wertungen. 
Für die Haltung des ersten Kontinents 
(Länder 1-4) gibt es pro Runde 7, für 
den zweiten (5-8) ebenso wie für den 
vierten (1 3- 1 5) 3 und für den dritten 5 
zusätzliche Armeen pro Runde. Viel 
Spaß beim Spiel! 



WHRGRME5 



•3 m 4KB 



FE 




Ö REM' ************************** 

1 REM ** WARGRMES ** 

2 REM ************************** 

3 REM ** COPYRIGHT C C > 1984-** 

4 REM **: BV ** 

5 REM ** JÜERG TEGEDER ** 

6 REM ** KEPLERSTRRSSE 5 ** 

7 REM ** 5206 NEUNKIRCHEN ** 
S REM ** TELEFON = 02247^4 14? ** 
9 REM ** UND ** 
18 REM** ANDREAS HALL WACHS ** 

11 REM** KÜENIGSBERGERSTR.4 **. 

12 REM** 5206 NEUNKIRCHEN ** 

1 3 REM** TELEFON = 02247/5 1 78 ** 

14 REM************************** 
56 ■' 

100 OP-0 : St>8 : RR-0 ■ GOSUB 1 1 700 

2Ö0 CLS 8 'TES-" WIEVIELE SPIELER C 2-4 ) ?" =P0=67 = LE*1 = GOSUB 15900'SP*VflUR»>' IF SP 

<2 OR SP>4 THEN SOUND 150.. 2 : GOTO 200 

300 CLS 4:pRIHT£260, "IHR NAME.. ".-FOR fi=l TU SP 

4Ö0 TE*= " SP I ELER " +STR*< fl )+ H ? " ■■ LE~8 : P0=32Ö ! GOSUB 1 5900 = Nfl$< fl 

N SOUND 150, 2= GOTO 400 ELSE IF fl=l THEN NEKT fl 

500 IF R>1 THEN FOR QW=1 TO R- 1 = IF HhU fl >-Nfl*< GH > THEN QH=fl 

GOTO 400 ELSE HEXT QW.-fl 

600 FÜR B-t TO SPACES 3 ■■ PR INT* 100.. "GEBEN SIE IHR TRUPPEN-"; 

EN EIN! " i 

700 TE$~Nfl$(H>H" M ? "=LE=1=PO«200 = GOSUB 159O0 = TR*< fl )*fl* : IF TR*<FO«"" THEN SOUND IS 

0,2 'GOTO 708 ELSE IF HSC( TRSKfl) X58 BND flSC<TR*Cfl))>47 THEN SOUND 150>2'GÖTQ 700 

300 IF fl>l THEN FOR B=l TO R-l •■ IF TR*C B )=TR$< R > THEN 6=A ' HEXT B - SOUND 150, 2 'GOTO 

700 ELSE HEXT B 
906 'HEXT R 
1000 GOSUB 6000 

1100 FOR fl-1 TG SP i Lfl< R ::^0 ■ NEXT fl 

1200 FÜR LV--1 TO 16 = Lfl<0>=17 = MR-0 = FOR R-SP TO 1 STEP -P IF LFK'RXLRCMR) THEN MR* 
fl 

1300 NEXT fl = LflC MR >=Lfl< MR >+l = Dfl( LV, 1 ;-=MR = DR< LV, 2 ;-=l = NEXT LV 
1400 FOR Ol TO 16; GOSUB 17400= NEXT C 

1500 FOR B=l TO SP'IF LA(B>=0 THEN NEXT B'GÜTO 1500 ELSE CH=0 
1600 TR«0i'lF 2LKB;->5 THEN TR~GR+RNfX 3 > = GR=GR+2 

1700 FOR fl~l TO 4 ! ZW=0 ! FÜR H-<fi~l)*4+l TO < fl-1 >*4+4 : IF DfKM,i:>~B THEN ZWäZW+I 
1800 HEXT t-MF 2U=4 THEN IF fl^l THEN TR=TR+7 ELSE IF fl=2 THEN TR*TR+3 ELSE IF R* 
3 THEN TR=TR+5 ELSE TR=TR+3 



>-fl*«IF NRXfl)-" 11 THE 
NEXT QU' SOUND 150.2' 
PRINTS 140," KENNZEICH 
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>~9 THEN SOUND 150, 2= GOTO 
> "NA4< Dfl< C, 1 ) >.: : GOSUB 16 



1900 NEXT A 

2000 GOSUB 16900* TR*TR+INT< LAC BV6>+3 = R=TR 'GOSUB 17308 = PRINTffi384,NA*<B>" C "TR4C6 

>" >, SIE HABEN "ZS.J = PRINTfi4 1 6," TRUPPEN EINZIEHEN KOEHNEN. " ; 

K1BW PRJ.NTS448, "TRUPPEN«"; =fl*TR' GOSUB 17399 = PRINTZ4; =TE4* U LAND NR- »>" =PO=480 = L 

E*2 : GOSUB 1 5908. < PR I NTS489 , STR I NG4C 3 1 , 32 > ; = GOSUB 1 6698 

2206 OVALCR*)» IF C>16 OR C<1 THEN SOUND 150,2'GOTO 2100 ELSE IF DACC,1X>B THEN 

SOUND 150, 2: GOTO 2100 
2300 TE4="2AHL DER TRUPPEN «>" ■• LE=2 = PO=4S0 = GOSUB 15900'PRINTfi480,STRING»C31,32) 
.-GOölJB 16689 = D==VALC A4 XIF D<1 OR D>TR OR DACC, 2 >+D>99 THEN SOUND 150/ 2 = GOTO 230 

.0 

"2400 TR-TR-D = DACC, 2 J'-DACC, 2 >+[>' GOSUB 17409= IF TR>@ THEN GOTO 2100 
2500 C-0'AN*8 
2600 GOSUB 1 6900 = PRINTÖ384, " ' ENGENDE, " WH' »= WIEDERHOLUNG"; - TE4~" ANGRIFF VON LAND 

NR. =*>"=PQ*416'LE=2'G0SUB 1 5990 'PRINTE 16, STR ING4C 32.. 32 )j ' GOSUB 16600= IF A4~"E 
N" THEN GOTO 4200 ELSE IF R$="WH" THEN GOTO 5600 ELSE C=VAL< A4 > 
2700 IF C<1 OR C>16 THEN SOUND 158, 2- GOTO 2608 

2800 IF DA<C,1X>B OR DACC, 2X2 THEN SOUND 159, 2 = GOTO 2600 ELSE AN~C 
2900 GOSUB 16900 0"E4=" NACH LAND NR. =«>" ■■ PG«416 : LE=2= GOSUB J5999= PPINTP416.STRIN 
G4<. 32,32.:';: GOSUB 16699 'C^VALC A4 >= IF C< 1 OR c>16 THEN SOUND' 3 59. 2 = GOTO 29RPi ELSE 
IF DACCl^B THEN SOUND 159, 2- GOTO 2990 ELSE 2=3 
3909 IF C»DflCflN..2) THEN GOTO 31 90 ELSE Z-Z+l ■ IF DAC AN, 

290Ö ELSE GOTO 39Ö6 
3 1 9 9 GO S U B 1 6 9 90 • P R I N T @ 3 8 4 , " AN G R I F F : ' ' NA * < DA < AN . 1 '> ) " = 
609 

3269 IF DA«:: AN, 2X4 THEN K-DAC AN, 2 >™1 ELSE K-3 
3380 TE$- " ANGRE I PER : " : PÜ-4 1 6 : ZW™ AN = GOSUB 5498 
3408 AK>K-FOR A~i TO K = Wl( A ;<=WC A > = NEXT A 
3588 IF DH(C,2X3 THEN K-DAC C, 2 > ELSE K=3 

3690 SOUND 209 , 5 = TE4- " VERTE I D I GER = " = PU-448 = 2ti--Ü. ■ GOSUB 5480 
3789 IF AIOK THEN PR~K ELSE PR=RK 

3888 FÜR fl»l TO PR=IF Wl(H)>W(fl) THEN DA( C, 2 >=DAO::, 2 >-l : SOUND 25,5 EISE DRf AN ■ 2 > 
» D A C A N , 2 XI = SO U HD 2 2 5 , 5 

3988 NE KT fl = IF DA'- C , 2 )=9 THEN PLAY P4 ' 0H~ 1 ; LAC DA-:: AN, 1 ) >=LAC DAC AN, 1 > )+l = I AC DAC r. , 1 
>}=LACDACC, 1 >)-l 

4088 IF DACC,2::'-8 THEN DACC , 1 >=f>A< AN , 1 ) ; GOSUB 1.7488 = TE*"- 11 TRUPPEN NACH LAND NR. " 
:fl-C= GOSUB 17388 = TE4-TE4+24+" ==>" ■ PO-489 ■ LE-2 = GOSUB 15988= fl=VALC A4 > : IF A< 1 OR A 
- >DAC AN , 2 ::• THEN SOUND 1 59 , 2 = GOTO 4888 ELSE DA«:' f: . 2 ':<=•- R : DRC RN . 2 -'-"DA':' AN ■ 2 >~A 
4108 GOSUB 1 7488 : 2W=C = C=fiH * GOSUB 17488 u>ZW = GOTO 2:688 

4288 GOSUB 16900= IF LAC B)-" 16 THEN GOTO 5888 ELSE PPINT@3R4. "TRI IPPFN VERROH IEBUNGE 
N- — EN=ENDE"j :TE4*"V0N LAND NR. ==>" =LE=2 = P0=448 ■■ GOSUB 15908 : IF A*="EN" THEN GOT 
ü 4, -'88 ELbE A=VAL-: A4 X IF A< 1 OR A>16 OR DACA.. 1X>6 OR DflCR,?K? THFN Rfil IHD j Pitt . 2 
: GÜTO 4288 " . ' 

4388 PRINTi*443,STRIHG4C31,32>.; : GOSUB 16988 = TE4=" TRUPPEN NflPH I AND NR. «='>" = pn=41 
b ' LE=2 • GOSUB 15988 :DE=VRL( A4 >■■ IF DE< 1 OR DE>16 OR DA(DE,1X>B OR DA-:'DE . 2 >+?T>99 

THEN SOUND 158, 2- GOTO 4288 ELSE Z=3 

4408 IF DE>DA'- A , Z ;> THEN GOTO 4588 ELSE Z=Z+1 = IF DA-:; A, Z )=0 THEN SOUND 1 5(i , 2 : GHTA 
4288 ELSE GOTO 4488 

4598 GOSUB 16998 = TE*= n ZAHL DER TRUPPEN ==>" •■ PÜ~4S8 = LE=2 = GOSUB j S^Rfl = ZT- VAU" A4 ">■ I 
F ZT<1 OR DA(A,2X2T+1 THEN SOUND 158, 2- GOTO 4288 

4690 DA-:: DE , 2 >=Dfl< DE , 2 )+ZT' = Dfl< A , 2 >=DA< A , 2 >~7J ■ C~fl : GOSUB 1 7488 •■ C=DE = GOSUB 1 7480 ■ GO 
TO 4288 

4798 IF CH-1 THEN ZU( B J-ZLK B HRNDC - :: : '^ i":H~m 
4888 NEXT B 
4990 GOTO 1580 

5098 SC =3 : GOSUB 1 1 788 ■ RR I N TÖ389 , " WEL T'BEHERRSCHER 1 8 T ■ " ; 

5190 FOR C=l TO 3 = PRINT(S448+(32-LEN<HA4<;B>)V2jNR$CB;'; =FOR A~l TO 208 STEP 10^30 
UND A,1=NEXT A ■ PRINTijÜ443 , STRING4C 32, 123 ) ;. ■ FÜR A=298 TO 1 STEP -19 = SOUND A . 1 ■ NEXT 
A,C 

5289 PRINTe416+c:32-LEN<NA4(B)>V2..NA*<B>; =FOR A~l TO 299 'NEXT R = TEt="HOCHMRL J^N 

?" :R0=483=LE=1 = GOSUB 15988= IF A4="J" THEN RUN ELSE IF A$<>"N" THEN GOTO 5208 
5388 C L S 8 : FO R fl= 1 9 T 1 8 T E P - 1 : G SU B 1 7 39 8 : PR I N T @2 3 9 , Z $ ; ■ S U ND < 2 1 0- A * 20 ) t 1 : F 
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R e=l TU 100= HEXT e,R=CLS=PRINTei34i "TSCHUESS. . . " :PRINT@384, ; = END 

5409 FÜR NF=1 Tu !< = G0SÜB 5700 = WC NF ;--fl : I.F WF>1 RND WC WF- IX Fl THEH FÜR 2=1 TG WF ■ I 

F WC 2 »Fi THEH -HEXT Z ELSE X=2 : 2=WF = HEXT 2 ! FÜR Z~WF TÜ X+l STEP -1 = WC 2 )«W< 2-1 > -'NE 

XT 2 •■ WC X >==fi 

5 50 F R 2 = 1 1" W F : P R I H T £ P .• T E $ .: • R = W C Z ) ; G n S 1.1 B 1 7 3 9 : P R I N TS P + 1. + Z * 4 , Z % .; : G OSUB 16 

600 : HEXT Z,WF=RETURH 

5606 IF RH<1 ÜR RH > 16 CR DRC RH, 1 X >B OR DRC RH, 2X2 THEN SOUND 150,2 = GOTO 2600. EL 

S E I F D R C C .- 1 •' = B T H E H S U H D 1 5 Ö .. 2 : G T 2 9 E L S E G T 3 1 00 

5 7 00 fl* - : I HKEV4 : fi=RH Dt •' : PR I H TG! PO + 1 9+ WF 1 4 , TR* ( DHC ZW , i ) ) ; : GOSUB 1 fcböö 

5808 R$=iHK:EY*: IF R$<>TR$C DHC ZW, 1 ;■ > THEH GOTO 5800 

5900 fl-RHDC 6 > : GOSUB 1 7300 : RETURH 

60@0 CLS O ; FÜR L I -0 TÜ 63 : SET'C L 1 , , .5 > = SEK L 1 , 1 , 5 > = SETC L 1 , 22 , 5 ) ■ SETC L 1 , 23 , 5 > • HEXT 

L I : FOR L I ==9 TÜ 23 ; SETC W .■ !.... I .■ 3 ) = SETC 1 , L I .■ 5 ) ; SETC 62 , L I .■ 5 ) : SETC 63 , L 1 , 5 X HEXT L I 
61O0 SOUND 10, 1 
6200 FÜR L I "2 TÜ 1 4 : SETC L 1 , 5 , 2 > ■■ SETC 1 2+L 1 , 7 , 2 ) = SETC 25+L 1 , 1 3 , £ ) : SETC 37+L I , 1 7 , 2 "> ■ 3 

6380 I F L 1 < 8 THEH SETC 25 , !.... 1 , 2 ') 

6400 SOUHD 20, 1 

6500 I F L I < 8 THEH SETC 1 3 , L I , 2 > 

6 6 U I F L I < 5 T H E H . S E T •:. 4 , 1 8 -■ L I , 2 > 

6700 SÜUHD 30, 1 

680Ö I F L I < 3 THEH SETC 5 1 .■ 1 3 ■--!.... 1 , 2 > 

6 3 O I F :: ' I... I < 1 4 I" H E H S E T C 2 6 , L 1 , 2 ) 

7000 SÜUHD 40.1 1 

7 1 00 1 F L I -:. 6 T HEH SEI'- 3 9 ■■ 1 4- L 1 , 2 ) 

7200 HEXT LI 

7300 SÜUHD 50, 1 

7400 SETC 39,9,2 > 

75Q0 SETC 14,6 - 2 J 

7600 SOUHD 60, 1 

7 700 FÜR L 1 -2 TO 1 3 : SETC 26+1 i. , 7 , 8 ) : SETC 38+ L 1 , 9 .- 8 ) 

7800 I F L J ■■ . 5 THEN SETC 5 1 , L 1 , 3 ) ELSE SETC 52 , L 1 , 8 > 

7900 SÜUHD 70, t. 

3000 IF LKS THEN SETC 26, LI, 8 > 

iE: 1 I F L I < 8 ' !" H E N 8 E T < 3 3 , L I , 5 > 

3200 SOUHD 80. 1 

8300 IF L I < 1.2 THEH SETC 50 +L 1 , 13 , 3 .> 

3 4 I F !.... I < 6 T H EH S E T C 4 4 ■ 1 6 + !.... 1 , 8 > ' 

3500 SÜUHD SO, :l. 

8600 J F :; ' L I < 3 THEN SETC 43+ L 1 , 1 8 , 8 :■ 

3700 I F L I ■=■ 3 THEH SETC 52 , 1 1 +L 1 , 8 > 

8800 SÜUHD 100.. 1 

8900 HEXT LI 

9000 SETC 27, 7, 8 > 

9100 SOUND 110, i 

9200 SETC 40,7, 8 ) 

9300 SETC 4Ü, 3, 8 > 

9400 SOUHD 120, i 

9 5 F R I... I = "I" Ü 1 2 : S E 1" C 3 8 - L 1 , 1 3 ■ 7 ) : S E 

9600 IF LK4 THEH SETC 39, 14+LI , 7 ) 
9700 SOUND 130/ 1 

9800 IF LK5 THEH SEK 39+LI , 18,7 > 
3900 IF LK4 THEN SETC 43, 18+LI , 7 > 
1Ü000 SOUND 140, 1 

1 i 00 I F L I < 8 THEH SETC 2.6 , 2 1 -L 1 , 7 ) 
10200 IF 17+LK22 THEH SETC 14, 1.7+L.1 , 7 
10300 SOUHD 1.50, 1 
-10400 HEXT LI 
10500 SETC 26, 1.4, 7) 
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10600 SOUND 160 .. i 

1 0700 FÜR L I =0 TU i 1. ■. SET* 2+L I , i 7* , i > = SEK 1 3 , 1 7-L 1 , 1 > = SETC 1 3+L I , J 3 ,' 1 :- = RFK 1 4+1 Li? 

, 1 > ■ SEK 2+L 1 , 1 3 , 1 > = SEK 2+L I , 6 , 1 > = SETC 1 3+1 T . R . J ':■ 

10880 IF LK10 THEH SET-:: 25, 8+LI, 1 ) 

10980 SOUND 170, 1 

11 000 HEXT LI 

11100 SET'::;;;: 5, 13", 1 > 

11200 SO UND 180, 1 

11300 SEK 25,8, 1 > 

1 1 4 P R I H T i»! 1 1 , ' ' i ... f a r 9 a r-i e s " ■ : G Ü S U B 1 6 6 Fi Fl 

11500 SD IJHD 190, 1 

1160Ö RETURH 

11700 CLS 

1 1 8 00 F OR S D « 2 T Ü i. fi ; R E T ( 2 @ , S D , S C > : 8 E "I" >:' 2 f. , R D . R f: ') 

11900 I F S D < 6 T H E H S E T C 2 3 , 2 + S D , 3 C ) 

1 2 00U I F 3 D < 3 T H E H S E T ( 2 1 , 7 + S D , S C > ■ S E T C 2 2 , 6 + S D , 8 C ) : S E T C 2 4 , 6 + 3 D , S C ) : S E T C 25,7 + R D ■ R 
f: > 

i.2100 HEXT SD 

1 2 260 F OR 3 D = 5 T 3 • S E T ( 2 9 , S D , S C > : S E T C 3 2 , S D .- S C > 

1 2300 I F SD< 7 THEH SET': 25+SD , 4 , 3 Ü > : SET':: 25+RD ■ 1 ■ St": ':> 

1 2 400 I F ■ S D < 6 T H E N 3 E "I" C 2'S +S D , I , R f: ';■ 

12500 HEXT SD 

1 2 6 O O Fü R S D = 4 T 1 8 = S E T C : '3 6 , S D , S C ':■ 

1 2700 I F SD < 5 TUEN SEK 33+SD .. 5 , SC > ■ SETC R6+RD . 5 . Ri": :■ 

12800 IF SD<6 THEH SETC 3 4+ SD - 4 . RR j 

1290U HEXT SD 

13Ö00 FOR SD-1 10 ? = SEK 12, 13+SD . RC ':< 

1 3 1 00 I F SD< 6 THEH SETC 1 2+8D > I, 3 , RR > = RFK 1 3+RD , 2 1 , P.r :- 

1 3200 I F SD< 3 THEH SET»' 1 8 , 1 3+SD - SR ':■ = RFK 1 R . 2 1 --SD . RH '■ 

13300 IF 3D<4 THEH SEK 1 C J--RD . ] R .-Ri": j 

13400 HEXT SD 

1 3 5 O F R S - 1 T 5 : S E T C 2 1 , 1. 5 + S D , R C > : R E T C 2 4 .- 1 5 + S , S C > 

1 3600 I F 3D< :; : : THEH SETC 2 1 +SD ■ 1 5 . Ri": ':- = RFTC ? J +RD . 2 1 ■ SP '< 

13700 IF SD<2 THEH SETC 24+SD. 21 . RR ':■ 

13800 HEXT SD 

139O0 FÜR SD=0 TO 5 = SETC 28, 1 6+ SD, SC ); SETC 2] . 1 R+RD . RR ":« : RET-:' 34 . 1 fi+RD . Rr -> 

14O00 IF SD<2 THEH SETC 29+SD -1 !=i . Rf: ':■ = RET- '3 W-RD . 1 c i . RR "- 

14100 HEXT SD 

14200 FOR SD~0 TO 4 = SETC 37 . 1 6+3D ■ RR ':. 

14300 IF SD<3 "THEH SEK 33+SD, 15, SC > = SFTC RR-f-RD . 31 . RR :- = RET'" RR+RP . 1R, Rf '- 

14400 IF SD<2 THEN SETC 41 . ] fi+RD. Rf: ') 

14500 HEXT SD 

14600 FÜR Sr>@ T'O 2 ■■ SET-: 45+SD , 15 , Si": ) = RFTc" 4^iH-RD . J R . RR '■ = RET''" 4 E i+sn - -'] . Rf" s . 

1 4700 I F SD< 2 THEH SETC 44 , 1 g+SD , SR :< = RFT' 1 ' 4R ', 1 9+RD '." RR "■ ' "" "' *' 

1 4890 I F SD< 1 THEH SETC 48 , 1 6+SD . Si": ':• = RFTC 44 . ?fi+RD ■ RR '• 

14900 HEXT SD. " 

15800 I F RR - ; .: > THEH G T 1 5 8 Ü6 E L S E R R™ M K + 1. 

15100 PRIHT @ 393, "COPYRIGHT C C ;-" .^ PRIHT @ 430 ■ "BY" .- PPIHT f» 4^4 ■ "TEGEDER ^ HAH 

WACHS"; 

15200 GOSUB 17500 

15300 FOR C-l T0.25 

15400 SÜUHD C*16, 1 

15500 IF D=l THEH SCREEN 0,@=D=0 ELSE SCREEH 0,1=D^1 ■ 

15600 FÜR 6-1 TU 50= HEXT B,C 

1 5 70 S C REE N , 1 = F OR C = 1 T c i APi = H F X T n 

15800 RETURH 

15900 R $=■-"" 

1 6000 P R I H T@ P , TE $ A % C HR* C 2 9 7 ■■ S T R I H G $ C L E , 3 2 > .; ■ R C R E E H , 1 

1 6 1 00 B *™ I HKE Y$ = I F BS » " " THE H GOTO 1 6 1 00 

16200 IF B$=CHR*C 13> THEH RETURH ELSE IF es=CHR*C 8 > THEH IF PEEKC VRRPTRC A* >»0 T 
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HEH Pf 

164@@ 
16580 
16686 
16780 
16800 
16900 

17000 
17100 

17200 

17300 

17400 

OSUB 

17509 

:l 7600 

17700 

1.7808 

1790t; 

18000 

IS 100 
1.820Ö 

: 1.8300 

I 184Ö0 

I 4. .5, ? 



JKE VRRPTR< RS ') ,. PEEKC VRRPTRC fl* > >-• 1 : LE>LE+ 1 = GOTO 1 6000 

IF RSC'::B$::'<33 OR B*=" b " THEH GOTO 16009 

IF LE>0 THEH R*==R*+8$ : LE^LE-1 

GOTO 16000 

FÜR QU=1 TO 10 '-HEXT QU 

SCREEN @, 1 

RETURN 

FOR S 8=384 TU 443 STEP 32 : PRJ.NT flu 33.- STRIHGSK 32.. 32 > ■ : HEXT SS 

PR 1 NT S 480 > S'T'R I HG$C 3 1 , 32 ) ; = POKE 1 535 ,96 

G03UB 16600 

RETURN 

2$~STR I HG*':'. 3--LEHC STR$< R ) > , 48 >+R I. GHTSC STR*< R ) .. LEHC STR*( fl ') >- 1 ) : RETURN 

SOUND 1 .- 1 : R~C : GOSUB 1 7308 : PR I N't'iJÜDR»:: C .. > .• Z%> : PR I.NTTRsK Dfl< C .- 1 > > i ■■ fl-DR< C , 2 ) : G 
1 7390 : PR I NT2$ .; : GOSUB 1 6 6O0 ; SOUND 250 , 1 : RETURN 

GOSUB 16690 : D=-1 

PIN DR< 16.. 11 ) 

F R H " : 1 T 1 6 ■ R E R f> D R '■ R .• ■' : H E ft T R 

FOR R==l Tu 16 = B==? 
:i B=B+i : RERD DR( H,B> 



'!ti= : "T;c5.;03.i 



= SOUND R*10,1=IF DR(R,B)<>0 THEH GOTO 17900 ELSE HEXT R 

.: 8 .; 1 .: 1 2 .; 04 .: 1 j 1 .: 03 ; ]. 2. i 1 .; 8 ■ 6 .i 5 i 3 .1 1 " 

G R = 2 : F R !■'•! = 1 "!"' 3 P : Z U '■ N > ::;:: O : H E ti T N 

RETURN 

DR TR 33 , 39 , 1 74 , 2 1 2 , 73 , 84 , 90 , 343 , 1 6 1 , 1 h? , 225 , 23 1 , 270 .• 334 .• 328 .- 32 1 

DR TR 9 ■ 2 ■ 9 , 1 , 3 ■ 5 .- 9 .. 1 .■ O ■ 2 .. 4 ■ 5 , b .■ 1 .« 1 2 > 1 3 .< O .■ 3 ,5.-6 , 7 .. 8 , 1 3 > 1 4 , 8 > 2 .■ 3 .- 6 , 1 .. .. 3 > 
, R , 4 .■ 6 , 8 , U , 4 , 7 , 1 4 . ö , 1 , 2 ■ 1 U , 1 1 • 1 2 , , 2: , 3 , 9 , 1 1 , 1 2 , 1 3 , .■ 9 , 1 , 1 2 , 1 5 , 1 6 .■ .■ 3 , 3 .■ 1 * 
, :f. 4 ■ 1 5 .. 1 6 .. . 3 , 4 .. 1 , 1 2 .. 1 4 .. 1 5 , O , 4 , 8 .- 1 2. .■ 1 3 .• 1 5 • .■ 1 1 ■ 1 2 .■ 1 3 .■ 1 4 .- 1 6 .• .■ 1 1 .- 1 2 1 1 5 .- 
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ZX-DRAW 

Dieses Zeichen programm für den I6K 
ZX--8I weist einige Besonderheiten 
auf. 

Sie können bis zu 9 Bilder auf Kasset- 
te abspeichern und jederzeit, wieder 
abrufen. Auch ein Vervollständigen 
der Bilder zu einem späteren Zeit- 
punkt ist möglich. 

Die Bildschirmdarstellung ist 24zeilig. 
Die beiden unteren Zeilen enthalten 
Bedienungshinweise oder tragen 



Bildunterschriften (Infofeld). 
Eine spezielle Maschinencoderoutine 
ermöglicht es, 24zeilige Hardkopien 
der Bilder mit dem ZX-Drucker anzu- 
fertigen. Eine andere Routine zeich- 
net nach Eingabe eines Radius Kreise 
an jede beliebige Stelle des Bild- 
schirms. 
DIE EINGABE 

Geben Sie das Programm ein. A$ in 
Zeile 10 kann auch bescheidener aus- 



fallen (z. B. 10 LET A$ = „ZX - 
DRAW")- Zeile eins ist für den 24zeili- 
gen Ausdruck mit dem Drucker wich- 
tig. Sie wird direkt eingegeben. Bei 
den Graphikzeichen handelt es sich 
um das Graphik -,,A"-Zeichen. Ver- 
gessen Sie nicht, zur Sicherheit 
zwischendurch abzusaven. Durch die 
hohe Dimensionierung dauert das Ab- 
saven normalerweise recht lange. 
Wenn keine Bilder mitabgespeichert 
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werden sollen, empfiehlt sich die di- 
rekte Eingabe von „Break", „Clear" 
und Save ,,ZX DRAW". Die Abspei- 
cherzeit verkürzt sich drastisch. Das 
Programm muß dann aber nach dem 
Laden mit „RUN" neu gestartet wer- 
den. 

Nach dem Starten des Programms mit 
„RUN" bietet eine Menue folgende 
Auswahl an (Bild 1): 

1. Anleitung 

2. Zeichnen 

3. Bilderverzeichnis 

4. Bilder aus druck 

5. Bilder löschen 

6. Abspeichern 

Ein invertierter Charakter steht imme 
für eine Inkey$ -Eingabe. Nur in Teil 
drei und fünf des Menues müssen Ein- 
gaben mit „NEWLINE" quittiert, wer- 
den. 
Die Routine im einzelnen: 

1. Anleitung: Die Anleitung enthält 
kurze Bedienungshinweise zum Zei- 
chenvorgang. 

2. Zeichnen: Beim Anlaufen dieses 
Unterprogramms zeigt sich über dem 
Infofeld ein blinkender Punkt, der 
sich mit den Pfeiltasten 5, 6, 7 und 8 
über den Bildschirm steuern läßt. Die 
Taste ,'.l" läßt den Punkt permanent 
erscheinen und ermöglicht damit den 
Zeichenvorgang. Die Taste „0" läßt 
den Punkt blinken und erlaubt be?i- 
spielsweise das Radieren. 

Mit der Taste ..P" kehrt der ..Zeichen- 
stift*' zu seiner Ausgangsposition zu- 
rück. 

Das Infofeld bietet im Zeichenmodus' 
drei Möglichkeiten. 
I. Nach der Beendigung des Zeich en- 
vorganges kann ein Bild mit der Taste 
„A" intern in das RAM abgespeichert 
werden. Der Computer fragt vorher 
an. unter welcher Nummer er das Bild 
abspeichern soll. 

Die Ziffern eins bis neun sind möglich. 
Unter einer Nummer kann jeweils nur 
ein Bild abgespeichert werden. Spä- 
ter kann als Merkhilfe die Nummer 
sowie ein dazugehöriger Name in das 
Bilderverzeichnis eingetragen wer- 
den. 

IL Durch Anwählen des Buchstaben 
„K" läßt sich um den Zeichenstift ein 
Kreis mit beliebigem Radius schlagen. 
Achten Sie darauf, daß der Kreis nicht 
die Bildschirmgrenzen sprengt, sonst 
steigt das Programm mit einer Fehler- 
meldung aus. Ein Radius muß immer 
zweistellig eingegeben werden, z. B. 
„03" oder „11". 



- ZX-81 - 

III. Der Sprung zum Menue erfolgt mit 
der Taste „M". Wichtig, daran ist, daß 
auch das Bild gelöscht wird, wenn es 
vorher nicht abgespeichert wurde. 

3. Bilderverzeichnis: Das Bilderver- 
zeichnis erlaubt es, die Bilder und 
deren Namen in einer Liste zu notie- 
ren. Jeder Nummer kann ein Name 
mit bis zu zwölf Buchstaben zugeord- 
net werden. Im Eingabemodus „E" 
wird erst die Nummer und dann der 
Name eingetippt. Beide Eingaben 
müssen mit „NEWLINE" abgeschlos- 
sen werden. 

Dann springt das Programm automa- 
tisch weiter zum Ausgabemodus und 
listet das Bildspeicherinhaltsver- 
zeichnis auf. 

Der Ausgabemodus kann mit „A" 
auch direkt angesteuert werden. 

4. Bilderausdruck: Dieses Unterpro- 
gramm erlaubt es. eingespeicherte 
Bilder auszudrucken. Zunächst muß 
die Bildnummer eingegeben werden. 
Anschließend fragt der ZX-81. ob ein 
Bildschirmausdruck „B" oder eine 
Hardcopy „H" gewünscht wird. 
Beide, sowohl . der Bildschirmaus- 
druck als auch die Hardcopy enthalten 
in der untersten Zeile den Namen des 
Bildes, sofern er vorher im Bilderver- 
zeichnis eingetragen worden ist. Der 
Bildname wird automatisch immer in 
die Mitte der letzten Zeile gesetzt, 
wenn er aus einem zusammen- 
hängenden Wort besteht. (Bild 2). 
Soll ein Bild noch verschönert, erwei- 
tert oder korrigiert werden, so führt 
die Taste „2" in den Zeichenmodus, 
..M' % steuert das Menue an. 

Nach Ausdruck der Hardcopy springt 
das Programm von allein zum Menue 
zurück. 

Selbstverständlich muß das erweiter- 
te Bild anschließend wieder neu abge- 
speichert werden. 

5. Bilder löschen: Die Bilder sowie ih- 
re Namen .können durch Eintippen 
der Bildnummern einzeln gelöscht 
werden. 

6. Abspeichern: Das Programm wird 
inklusive Bildspeicher auf Kassette 
gesaved (Savezeit ca. sechs bis sieben 
Minuten). 
ERWEITERUNGEN 

Für Erwiterungen läßt das Programm 
nicht allzuviel Raum, weil der Bild- 
speicher eine Menge Platz benötigt. 
Die Zeile 9000 gibt Auskunft dar- 
über, wieviel Speicherplatz noch frei 
ist. 
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Ein Unterprogramm zum Zeichnen 
von schrägen Linien wäre bestimmt 
eine nützliche Erweiterung. Die Wort- 
länge des Bilderinhaltsverzeichnisses 
könnte durch Ändern der Zahl zwölf 
in den Zeilen sechs und 4830 leicht 
vergrößert werden. 
Die Bildspeicherroutine ließe sich 
auch gut. als Ausgangsbasis für ein 
Trickfilmprogramm verwenden. 
Denkbar ist hier für eine Begrenzung 
des Bildschirms, so daß kleinere, aber 
dafür mehr als neun Bilder im Spei- 
cher Platz finden. 

Die Z eichen r out ine ermöglichte das 
Zeichnen und Kopieren der Einzelbil- 
der. 



In Schleifen könnten dann die Bilder 
vorwärts oder rückwärts nacheinan- 
der übereinander ausgedruckt wer- 
den und einen Bewegungseffekt her- 
vorrufen! 
DAS PROGRAMM 

Das Hauptprogramm ist das Menue 
(1000- 1210), von dem die verschie- 
denen Unterprogramme angesteuert 
werden. Die Unterprogramme sind 
mit REM-Zeileh markiert. Der 24zei- 
lige Bildschirm wird durch „Poke 
16418,0" erzeugt. Allerdings sind 
dann keine „Input "-Eingaben mehr 
möglich, das ist auch der Grund, war- 
um überwiegend die komplizierteren 
,.Inkey$'" -Eingaben Verwendung fin- 
den. 



Erst „Poke 16418,2" erzeugt wieder 
normale Verhältnisse. 
Der „COPY"-Befehl macht üblicher- 
weise nur 22zeilige Bildschirmko- 
pien, selbst dann, wenn 24 Zeilen auf 
dem Bildschirm zu sehen sind. Abhilfe 
schaffen hier Zeile eines und zwei. 
Der Befehl „RAND USR 16 514" *uft 
die kleine MC-Routine auf und der 
Drucker beginnt zu arbeiten. 
Die Zeilen 3100- 3140 tasten zeilen- 
weise den Bildschirmspeicherinhalt 
ab und speichern ihn im String. Eine 
Bildschirmbegrenzung kann durch 
Verkleinern der Schleifen erreicht 
werden. Der String kann dann ent- 
sprechend kleiner dimensioniert sein. 
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1 

£ 
3 
4 

5 



REM -/LN 
POKE 16517 
REM 



RN 
107 



8 



DIM 
DIM 
DIM 
REM 



'Vi (9,768) 
B* (5,32) 
F* (9,12) 

********£ 

** 

ZK - 



************ 



QRHi.4 
. . 1984 BY 
ÖLIUER FRITSCH 
KRPELLENUEG 8 
D-7S0S UALDKIRCH 
WEST GERHANY 



** 
* * 
** 

** 

** 

********************* 

fl 




** 
** 
** 
** 
** 
** 
** 
** 
** 
** 




15 
2© 



5LQW ... 
LET 5fe(l)='jr 



^SPEICHERN 



^ 3© LET B$(2? ='J 
»EIS j&ENUE d 

4© LET B* (3\ =^1 
MUE JT 

4-5 LET SU==© 

50 LET B*(4Js" (C) 1984- BY OLIM 
ER FRIT5GH" 

6© FOR I^i TD 9 

70 LET Y* (I) = " " 

8© NEXT I 

100 LET P=6 

llö LET FLQG=<fr ^ 

510 POKE 15418,0 

52© PRINT AT 4,1;?»* 

53ö PRINT RT 23,0;B*«3J 

540 PRINT RT 22 J ©;B*il> 

550 PRINT RT !S,3jB»(4) 

5Ö0 PRINT RT 23,i4;"M" 

570 IF INKEY*a"H" THEN GOTO 1©0 

•Tfc 

""530 FOR 1 = 1 TO 3 

59Ö NEXT I 

50Ö PRINT RT 23., 14; "38" 

öl© GOTO 530 

10Ö0 REM 

1010 CL5 

102© POKE 16418,0 

1030 PRINT RT 2 .,11 
T 3, 11; "**#******" 



1040 PRINT 
1050 PRINT 
1050 PRINT 
^ICHNIS" 
1070 PRINT 
RÜCK " 

108© PRINT 
5CHEN" 
105© PRINT 

llö© PRINT 

111© PRINT 

INGEBEN t 

Ü3® 

1140 

115© 

1150 

1170 

llö© 



RT 
RT 
RT 



B,P; 

S,P; 
10, P 



RT 12 , P 
RT 14 ,P 
RT 16, P 



RT 

RT 

1 - 



Ö 

0; 



l E N U £";A 

ANLEITUNG" 
ZEICHNEN" 
I BILDERVERZ 

! BILÖERftUSD 

I BILDER LOE 

I ABSPEICHER 



<1> 



NUMMER E 



11Q0 
THEN 

1200 
1210 

1500 

1510 
1515 
1520 
153© 
ANN 



23 

5 ) Jk' z 
LET M*=INKEY* 
PRINT AT 23,22; "B - g" 
FOR 1=1 TQ 5 
NEXT I 

PRINT QT 23,22;**! - 8" 
IF INKEY* = "'* THEN GOTO 1120 
IF CODE M*<29 OR CODE M*>34 
GOTO 113© 

~2Q 

00 



LET R=CODE M 
GOTO A*100©+ 
REM 
CLS 

POKE 16418,0 
PRINT RT 0,1; A* 
PRXNT. ## "DER ZEICHENSTIFT 
HIT DEN PFEILTASTEN »"5"» 



K 



"6" 
BILDSCHIRM 



UND 

BEWEGT 



""8"" ÜEBER 
WER -DEN-*« 



DEN 
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Ä C d-rö 1 T«.S?P TRSTE *' "!**■* r n _ uw 
*5S0 PRINT ^ ^ "SS FUEHRT f«CH nFM 

"ABGESPEICHERTE BXi.DE 
HIT B UERU0LL5TRENDI 



1555 PRINT 
R KOENNEN 
GT WERDEN. 
.560 PRINT 



ki -,.«=-r = -?«,- , 4 4 "KREISRRDIEN MUES5E 
S S UE 55 T!ELLIG EINGEGEBEN WERDEN, 



Z.B. 
175© 

181© 
230Ö 

251© 
£515 
£52© 
; 3 * < l > 
•253© LET 
2535 LET 
254.$ LET 
£580 LET 



02 
PRINT 

PRU5E 

GOTO 

REM 

CLS 

POKE 164-15,0 

PRINT RT 23,0;B* 



AT 22,8; B*ti} 

4-E4- 

0< 



RT 23 , 



!J ; RT 



,• © 



C=5 

FLRG=0 

D-© 

D=D + (INKEY*="S" 
~> - <INKEY*»"5" RND D>0) 
2585 LET C»G+ t INKEY*='*7" 
3i.rlINKEYS = "6 M RND C>*>> 



RND D 
RND C 



J58. 
= 1 
2588 

^^ 

2ö9© 
£600 
5610 



262© 

2530 
30 

2560 
2590 

£691 
2-5*32 

3533 

5781 



IE INKEY*="1" 
IF lNKEY*s ,, Ö" 



THEH LET FL RU- 
THEN LET FLRG 



PLOT D,C 
IF FLRG=*0 



IF INKEY* = l ~*H" 

IF INKEY*="fl" 
IF INKEY*e"K" 



TMEN UNPLOT D 



THEN GOTO 



C 

100 



THEN GOTO 300 
THEN GG5UB 26 



GOTO 2550 

rem fataWm 

LET Y-0 
LET X=0 
LET U * = •*" 

PRINT RT -23,1; "RRDIUS ZUEI* 

TELLIG EIMG.ZBfß*)" 

2702 FOR I«i TD 2 
LET 0*«INKEY* 

IF INKEY$ = "" THEN GOTO 270-3 
IF CODE D$>37 THEN GOTO 27^ 



£703 
2704 
2705 

£7©5 

£707 



LET y*=u*+o* 
PRINT RT 23.,!; " 

JUS: ";V*;" 

y?©8 FOR G=l Tu 8 

270*3 NEXT G 

2711 NEXT I 

2712 LET R=yftL US 
£713 IF R*0 THEN GOTO 
£715 FOR I-© TQ 3#PI ; 
£720 LET Xafl*CöS I*D 
573© LET Y=R*5IN I+C 
2740 PLOT X,Y 

£750 NEXT I 

2750 PRINT RT 23,0;B* 

"50 RETURN 
REM 



RRD 



26-20 
STEP 



1 



-=000 
3010 

HER 
3020 
3030 
3040 



BILDNU** 



PRINT RT 23,0, 
C 1 - 9 ) >»< 

LET 9*=INKEY$ 

IF INKEY^s"" THEN GOTO 301© 

IF CODE ö$<29 OR CODE ©*>3"? 
THEN GOTO 3© 10 
305© LET Q=CüDE 4-38 
3060 PRINT RT 23,27; ö 
3070 FOR 1=1 TG 10 
3080 NEXT I 
3090 ERST 

3100 FOR U«l TO 23 
3110 FOR G=l TO 32 
3120 LET Y«& <Ö,G+32*UO 
=PEEK 16396 +256 *PEEK 
U » 

3130 NEXT G 
3140 NEXT W 
3150 SLOW 
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=CHR* PEEK 
16397 +G +33 ~ 



34.0Ö GOTO 252$ 

3500 REH 



'-2i5 iE INKEY*«"" THEN GOTO 3510 
w520 IF INKEY*«"E- THEN GOTO 350 

3530 IF INKEYts"R" THEN GOTO 374- 

3 3 40 GOTO 3513 

3500 f" ^ 

3 5 i ö PÖK E 1 6 iiö , 2 

^'Sr2^- P ^J N T. "BITTE BILD HÜHNER Elf.: 

^E3£ PRINl ' RT 16.. 3; ,= . . , Rhi 5'^HL IE :~. 
£=££ ""NEWLXN£"""jrt 12,iir"nRU^ 

3540 INPÜT B 

3645 IF B>Q DR B<1 THEN GOTO 36© 

3650 PRINT RT 4 , 10; "BILDNUMHER • 

CHSTRBEN?" RT *' B ;" MfixlMn >- 12 BU 

3710 INPUT F* (B) 

3715 PRINT RT 6 , 5 ; "BILDNRHE; " ; F 

$'.B) 

3 72© FOR 1=1 TO 2© 

3 73© NEXT I 

S?5© OL** 16 * iö 'ö 

NiP;Tr1 N 39 T ^ B 7 i"?It D ? R ^ ER2EIC « 
3760' FOR l4 TO 9" ~" " 

f ?ö p RINT RT 1+3,4; I;» - »; F *fr 

375© NEXT I 

?ö*? 3 f R1NT * T öe '*'ß*<i);flT ai,e 

33©0 V "PRU5E 4E4 
-90© GOTO 100© 

,510^PRINf g RT agj*;* BILDNÜH 

JHP ISSt 1 ? 1 "'™ M 

4520 LET E*=INKEY* 

PS 



TO 



IXLD5CHIRH 



^i 570 FOR 1 = 1 

4580 NEXT I 

459© PRINT RT 23,©; 

AUSDRUCK SJRRDCÖPY „ 

>g^i $C ?K£I>;*=;\" T ~ EN soto 4595 

s§ Ö IF INKEy * s H" THEN GOSUB 46 
II 10 IP *NKEY*»»B» THEN G05UB 46 

452© GOTO 45Q5 

4 550 LET 5U=i 

480© CLS 

*3Ö5 POKE 16418^0 

481© PRINT Y*<EJt 

482© PRINT RT 22 , ©,; B$ ( 1 j ; R T 23 . fl* 



4S30 FOR I=;l T[) ig 

4340 IF NOT F*<E,I>«» >« THEN NEX 

Jtl® v'g 1 ^ 5 T S3.10-I^fi;F*CE3 

" ? 3ö0 IF SW=0 THEN GOTO 40 £0 

•?«/© RRND U5R 18514 ' ~ 

4 38© LET 5U=© . 

490© IF INKEY*s"H" THEN GOTO leg. 

490£ if INKEY*='*a" THEN GOTO 252 

4904 GOTO 490© 
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6 , ; uOE.5CHBN 



.-vSlß GOTO 1OO0 

3500 REM 

"•50c PöKE 1&41S..2 

^S@5 CLS 

3510 PRINT TRB S; "BILDER LOESCHE 

N M ;TflB 4£j " " 

5520 PRINT HT £0 , ö; B$ (13 ; RT 21,0 
; :, 9a NUMMER DES BILDES EINGEBEN. - 



BILD NUMME 



353© IN PUT B 

5550 LET Y*(B)-"" 

5555 LET F* ÜB? = "" 

555Ö PRINT RT 51,-2;' 

k S ';B; '* GELOESCHT. *' 

5570 FDR 1 = 1 TD 50 

3530 NEXT I 

55S© PRINT RT ai,0;B*i"3.* 

5300 PAUSE' 4E4 

5G00 GOTO 1000 

6500 REM I3§g0^HE9^ 

6510 CLS 

6520 PRINT RT 4 .» 1; "KRSSETTENREOG 

ROER EINSCHALTEN, " 

553© PRINT RT 15 ,, 3* " , , , RN3CHLIE3 

SEND ""NEWLINE"" st 

3540 PRINT RT 19, H; "DRÜECKEN, " 

355® PftUSE 4E4 

6560 SRUE "ZX - DRAU" 

3570 CLS 

3530 GOTO 1020 

5&ÖO PRINT PEEK 1S3SB-PEEK 154 IS 
fa56*[PCEK 16387 -PEEK 1S413J -5fc* 

THEN GOTO 25i: 
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n 



ZX-81 



J 



MOONCRASH 

Ein nicht, unrealistisches Simulation s- 
spiel mit psychologischem Hinter- 
grund für den ZX- 81 mit 16 K Sp ei- 
ch er er Weiterung, bei dem es außer auf 
schnelles R eak t.i o n s v e r m ög e n au c h 
auf gute Kombinationsgabe und Vor- 
aussicht ankommt. 
Es liegt folgende Ausgangsposition 
vor: Sie sind ein Raumfahrer und Ihre 
Mondlandefähre ist über dem Mond 
abgestürzt. Übriggeblieben ist Ihnen 
nur Ihr solarzellcnbctri ebener Mond- 
buggy mit einem begrenzten Sauer- 
ste) ff Vorrat . 

Ihre Aufgabe ist es jetzt, die sichere 
Mondbasis zu erreichen, bevor der 
Sauerstoffvorrat zur Neige geht. 
Der vorhandene Sauerstoffvorrat 
nimmt, konstant ab. Anders sieht es 
mit der Batterie aus. Ihre Kapazität ist 
zu gering, um mit einer Ladung die 
Mondbasis zu erreichen. 
Konsequent erweise wird es notwen- 
dig sein, einige Zwischenstopps ein- 

I rmputronic — — 



zulegen, um die Batterie mittels der 
Solarzellen wieder - aufzuladen. 
Wie 1 der Sand in den Wüsten dieser 
Erde, verschlingt auch die Mondober- 
fläche nur wenig Energie bei langsa- 
mer Fahrt, dafür aber überproportio- 
nal viel Energie bei .schneller Fahrt. 
Wer also in einem Anfall von Raum- 
koller versucht, wie ein Wilder in die 
rettende Basis zu rasen, wird öfter zu 
einem I lalt gezwungen werden, als ein 
gemächlicher Fahrer. 
Wer wiederum zu langsam fährt, wird 
Schwierigkeiten mit seinem Luft Vor- 
rat bekommen. 

Als weitere Schwierigkeit tauchen 
von Zeit zu Zeit Fels brocken auf dem 
Fahrt weg auf. Diese Hindernisse las- 
sen sich nur mit einem mechanischen 
Schutzschild aus dem Wege räumen. 
Je höher die Geschwindigkeit ist, 
desto kürzer muß die Reaktionszeit 
sein, wenn man nicht auf ein Hinder- 
nis knallen will und sich nicht, seiner 



letzten Chance berauben will, die 
Mondbasis zu erreichen. Bonuspunk- 
te auf den Sauerstoffvorrat in Ab- 
hängigkeit der gefahrenen Geschwin- 
digkeit, gibt es bei erfolgreicher Hin- 
dern! sbewältigung. 
Der Bi Ids chir m auf b au 
Der Bildschirm ist horizontal in zwei 
Hälften aufgeteilt. Die obere Hälfte 
zeigt die Kontrollinstrumente des 
Mondautos. S au e r s tof f vo r rat ( Oxy- 
gen), Geschwindigkeit (Gang), La- 
dung und Distanz werden laufend an- 
gezeigt. . Eine besondere Anzeige 
leuchtet bei Gefahr (Felsbrocken) auf. 
Wenn die Batterie aufgeladen wird, 
zeigt, ein Pluszeichen („-+-") den Lade- 
vorgang an. Sinkt der Luftvorrat un- 
ter zehn Einheiten ab, macht ein blin- 
kender Pfeil auf die kritische Si- 
tuation aufmerksam. 
Die untere Hälfte des Bildschirms 
zeigt in einer Seitenansicht die Mond- 
basis, die Mondober fläche sowie den 
Mondbuggy (Bild I). 
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Die Bedienung 

Das Spiel läßt sich durch Betätigen 
der Taste „S" starten, wenn die 
Schrift auf dem Bildschirm dazu auf- 
fordert. 

Ebenfalls mit der Taste „S" läßt sich 
bei Gefahr der Schutzschild bedienen. 
Die Geschwindigkeit wird mit den 
Tasten 0-5 geregelt. 
Nach dem Aufladen der Batterie muß 
das Fahrzeug wieder neu gestartet 
werden, d. h. ein gleichzeitiges Aufla- 
den und Fahren ist nicht möglich. Das 
Spiel ist beendet nach einem Zusam- 
menstoß mit einem Felsbrocken, 
wenn der Sauerstoffvorrat zu Ende ist 
oder wenn sich das Tor der Mondba- 
sis ganz hinter dem Fahrzeug ge- 
schlossen hat. 

Nach Drücken einer beliebigen Taste 
und der Taste „S" kann das Spiel wie- 
der neu gestartet werden. 




» B MOON - CRRSH- % 



mm 




iBILD i) 



10 
20 
30 
40 
50 

6© 
70 

TS 
80 
30 
99 

100 

11© 



REM 

REM 

REM 

REM 

REH 

REM 

REM 

REM 

REM 

REM 

REM 

FR5T 

CL5 

LET A* = " 



** 

** 
** 
** 
** 
** 
** 



HOONCRRSH 
x ***:*•************ * 

(C) 1984 BY 
OLIVER FRITSGH 
KflPELLENWEG 3 



VER: 



WRLDKIRCH 

CGER> 



******************** 



*** 
*■* 

*■£ 
** 
* * 

** 

. ** 
** * 




130 



14-0 
150 

16© 

17© 

1S0 



C*=r" 



LET D* = 
t_ET E* = " 
LET F* = " 
LET G$ = ,: 
LETM* = '- 



190 LET M*=" 




200 

sie 

320 
330 
300 
310 
500 
501 
510 
520 
530 
540 
550 
550 
570 
580 
590 

600 

610 
62® 
54.0 

64.5 



(RND*1S) +10 



LET K$=" 

LET L$=-' 



LET CO =99 
LET OD = 22 

rem mm 

LET HE = INT 

REM ffiMMbMfal 

FOR 1=1 TO 8 

PRINT fl* 

NEXT I 

PRINT AT ai,ß;B* 

PRINT RT 17^2; D* 

ESJttl ftT i^5j&*;rt i,aa.j e* 

gglN? gT 2,giK*fftT 2,2S;K$ 

P§^.§ T T§'f JK « iflT «'«i« 
P|XN Ti «T I.»;,. 

PglNT RT 2,23; CC 

LET 3=1 



ö 



65© PRINT RT 6,5; 5 

o5S LET 0=99 

560 PRINT rt 2,6;0 

680 LET P=27 

690 LET D=.05 

700 LET C=2 

900 SLOW 

903 PRINT RT 10, 3; M* 

905 tf PRINT RT 1© I Si"JP 

915 FOR 1=1 TO 50 

920 NEXT I 

930 PRINT RT 10 . 5 i "DRUECKF "»^» 
FUER STRRT" <- n^fci_:\fc * 

94-0 FOR 1 = 1 TO 50 

945 IF INKEY*="S" THEN GOTO Ißfö 



MOON - CRA 



950 NEXT I 

960 PRINT RT 10,3; "CO*» 
OLIVER FRITSOH" 

955 FOR 1=1 TO 50 

97Ö NEXT I 

930 GOTO 903 

1000 REM 



1984- SV* 



ISSi c^ n Ot™™* 

1030 QQSUB £010 

1035 PRINT RT 2,6; O 

1060 GOSUB 30Ö0 

1070 GOSUB 4-000 

1100 GOTO 10 10 

2000 REM 



|010 IF INKEY * = "©*' TMEN GOTO 250 

2020 IF INKEY4="1" THEN GOTO 260 

2030 IF INKEY*="2" THEN GOTO 265 

2040 IF XNKEY*="3" THEN GOTO 270 

2050 IF INKEY*="4" THEN GOTO 275 

2060 IF INKEY*="5".THEN GOTO 280 

2100 RETU RN 

«:505 LET a- =0 

2507 PRINT RT 6,6; 5 

2503 PRINT RT 2,24;"+" 

^-CC+^ P S NOT CC+3 - 5 > 9 © THEN LET C 
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£52© PRINT AT 2,23; INT «CCS 

253© IF NOT INKEY*»"" THEN GOTO 

£0 1© 

£54© LET 0=0-1 

£560 PRINT RT 2,6; O 

25S5 GOSUB 3000 

£57© GOTO 2510 

£599 REM 

260© LET 

£610 LET D».i 

£520 LET C=2 

£04-0 GOTO 2900 

£55© LET 5=2 

£660 LET D=.I5 

£57© LET C=4 

£59© GOTO 29Ö0 

£70© LET Ss3 

£710 LET D=»4 

£72© LET C=7 

£74.© GOTO 290© 

£750 LET 5=4 

£76© LET D=„7 

£77Ö LET C=li 

£790 GOTO 290© 

£S©0 LET 5=5 

2610 LET 0=1.1 

262© LET C = 1S 

2910 PRINT RT 5,5; 5 

£95© GOTO 1035 

£999 REM 

3000 IF Q<=9 THEN PRINT RT 



301© IF 0<=9 THEN PRINT RT 



,?; 



451© 

4Sö£ 
DD-D 

461© 
4530 

000 

4640 

*•> } \ 
479© 

500© 

502© 
503© 
■z-040 
5050 
507© 

503© 
5033 
5035 

5092 
5033 
5095 
510© 
5105 
5107 
5105 
511© 
520© 
600© 
3230 



IF P «BmMP M w GOTO S£©ö 

IF NOT DD-D<=© THEN LET DD- 

PRINT RT S, 23; INT «DD) 

IF INT <DD) =ME THEN GOSUB 5 

IF OD<=l© THEN PRINT ftT 6,2 

;RT 6 ,£4; " ". 
GOTO 100© 
REM JBI=MsM=ifci 

LET MET=P-1 

PRINT RT 20, MET;"*" 

PRINT RT 10,0; L* 

FOR 1=1 TO 62 STEP C 

IF INKEY*«"5" THEN GOTO 51© 

NEXT I 

PRINT RT Iß, 1; M* ■ • 

FOR 1^1 TO 2© 

PRINT RT iö,!!;' 1 * CRftSM * " 

PRINT RT 10,11; "ß »dH£ffi B" 

GOTO 900© 

PRINT RT 10,3; M* 

PRINT RT 2©,MET;"V" 

LET ME=INT (RND*12i +1© 

LET 0=0+5 

GOTO 2500 

RETURN 

STOP 

PRINT RT 20,7; '* V ; RT 13,6;*' 



3020 IF ö=0 THEN GOTO 9000 

3030 RCTU RN 

4 0©0 REM M a^rWd 

401© IF CC-G<=0 THEN GOTO 250© 

402© LET CC=CC-C 

403© PR INT RT 2,23; 1HT i OC~ ) 

404© IF CC<=9 THEN PRINT RT 2,34 

; " <" ; RT 2,24; " " 

410© LET F=P -D 

4500 E>="M fC*=ÜB| 



REM 

45©I IF NOT P<=3 THEN PRINT RT 
0,P; ,S O""O ";RT 19,P;** K " 



3205 PRINT RT 6,23;"3" 

Ö210 PRINT RT 1©,5; "GRRTULIERE , 

GE5CHRFFT." 

§220 PRU5E 4E4 

323© RUN 

£000 PRINT RT 10,11;" VERLOREN , " 

9010 GOTO 822© 

9990 SR VE "MOONCRfiSHI" 

9999 RUN 



i505 IF S=© THEK PRINT RT 6.5:" 
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8 : 

9 ° 

10 REM *#*****#**#***#***#+***# 

11 REM * * 

12 REM * SIMAKE * 

13 REM * * 

14 REM * (C> ROBERT TOLKSDGRF * 

15 ■ REM * AUGASSE 25 * 

16 REM * 875 ASCH AFFENBURG * 

17 REM * * 

18 REM * * 

19 REM * * • 

20 REM # LENGTH " 2.3 KBYTE * 

21 -REM * * 

22 REM ******##**#** #**#******* 



Snake 



} 



SNAKE 

Ein schnelles Spiel 
gegen den Apple II. 
Auf einer begrenzten Fläche befinden 
sich zwei Schlangen. Sie sind die rosa 
Schlange, der. Computer die blaue. 
Beide Schlangen bewegen sich stän- 
dig, wobei sie jedesmal um einen 
Punkt länger werden. Der freie Raum 
wird immer weniger, wodurch die 
Überlebenschancen der Schlangen 
sinken: denn, wenn sie gegen eine 
Mauer oder gegen die andere 
Schlange laufen, sind sie tot. 
Sie kontrollieren Ihre Schlange über 
die Taste ,A' (hoch). .Z' (abwärts). 
Pfeil rechts (rechts) und Pfeil links 
(links). Der Computer steuert seine 
Schlange und versucht sein mög- 
lichstes. Sie in die Enge zu treiben. 
Vor jedem Spiel haben Sie die Mög- 
lichkeil, zwischen Standard- und zu- 
fälligen Anfangspositionen zu wählen. 
Viel Spaß! 



24 : 

40 HOME 

50 FOR T ~ y 6 a TD 796: READ A: FOKE 

60 DATA 1 62 n 50 , 1 38 , 1 68 , 1 36 „ 32,28, 3 , 3 

,192, 232 , 224 ,, 250 ,144, 23 1,96,96' 
70 DATA , - 1,1, , ,,1,-1,0 
80 FOR I - NU T0"'3: READ AX < 1 ) , AY ( I ) 
90 D* ( ) = " A " : D* < 1 ) « CHR* (21): D* ( 
100 ZI = 10: Z2 -™ 18: Z3 - 23 

110 NU = 0:ei - l : zw ~ 2 
120 CR = l;:cc - 2 

130 SP - - 16336 

140 Sl$ = n ******************* #**-«-*•«■# 

130 S2* = "* 

1.60 . 60 TO 520 

170 GR ;; FOKE - 16302,0s CALL - 

180 COLDR« 10: HL IN 0,39 AT 0; VLIN 

AT 
190 HL IN 1,38 AT 1: VLIN 1,46 AT 38: 
200 FX =■ 17;; py = 20;; DP = NU 
210 CX. ~ 23: CY - 20: DC = 2 
220 IF RN THEN 250 
230 PX ~ ZI + TNT ( RND (ET) * Z2);:P 

( RND (EI) * 4) 
240 CX - ZI + INT ( RND <EI) * Z2):C 

< RND *.EI) * 4> 



I,A: NEXT 

2, 28, 3, 32, 28, 3, 32, 28« 3, 208, 241 , 141 , 48 



: NEXT 



CHR* (8) 



«■■x*********** 1 



?<9R 



0,47 AT 39: HL. IN 39,0 AT 47: VLIN 47, 

HL IM 38 , 1 AT 46 S VLIN 46,1 AT 1 

V - ZI + INT < RND-<EI> * Z3):DP - INT 

Y = ZI + INT ( R'ND <EI) * Z3):DC = INT 



62 



Computronic. 



Apple II 



!50 IF PEEK < ~ 16384) < 128 THEN 290 

?60 GET A* 

170 FÜR I = NU TD 3: IF A* - D* U > THEN DP = 1:1 = 3 

180 NEXT 

190 PX » PX + AX(DP.):PY = : = PY + AY(DP) 

!!30 IF SCRN( PX,PY) > NU THEN ER *= NU: GOTO 470 

>10 COLOR« CP: PLOT PX„PY:DD = PEEK (SP) 

520 IF SCRNC CX + AX(DC> n CY + AY(DO) = NU AND SCRN ( CX + AX (DO * ZW,C 

Y + AY<DC) * ZW) ~ NU TUEN 430 
530 AD = : DC + l: IF AD > 3 THEN AD » AD - 4 
:;40 AI = ( SCRN < CX + AX<AD),CY + AY(AD)) = NU) 
550 IF AI THEN AI = AI + < SCRN < GX.+- AX(AD) * ZW, CY + AY<AD) * ZW) ~ NU) 

560 BD ~ AD + 2: IF BD > 3 THEN BD : = BD - 4 

570 • Bl == : ( SCRN( CX + AX<BD),CY + AY(BD)) - NU) 

580 IF Bl THEN Bl - Bl + ( SCRN ( CX + AX(BD) * ZW,CY + AY<BD) * ZW) = NU) 



THEN DC == BD 



390 IF AI = NU AND Bl = NU THEN 430 

400 IF AI > Bl THEN DC :: = AD 

410 IF Bl > AI THEN DC = BD 

420 IF AI === Bl THEN DC - ADS IF RND (EI) > 

430 CX ~ CX + AX(DC)"CY = : CY + AY(DC) 

440 IF;' SCRN' CX„CY) > NU THEN ER ^ 11 GOTO 470 

450 COLGR= CC: PLOT CX ? CY;;DD == PEEK (SP) 

460 GOTO 250 

470 CQLÜR™ 15 

480 IF ER THEN PP ' -- PP + 1 ; PLOT CX,CY 

490 IF NOT ER THEN PC === PC + 1; PL DT PX,PY 

500 CALL 768 

510 FOR I "- 1 TD 1000:: NEXT 

520 TEXT I HOME 

5 3 P O j< E - 1 6 3 6 8 ,, 

540 PRINT Sl* 

550 FOR I = 1 TD 22;; RR INT S2*S NEXT 

560 RR INT Sl*5 

570 VT AB 3". HTAB 11: IN VERSE : PRINT " SNAKE " : NORMAL 

580 VT A B 5 : HTAB 1 1 " PR I N T " B Y ROBERT T OL K S D R F " 

590 VT AB B: HTAB 5: PRINT "YOU CONTROL YOUR PINK A" 

600 VT AB '?: HTAB 5; PRINT " <™ ">" 

610 VT AB 10; HTAB 5: PRINT "SNAKE BY THESE KEYS!! Z" 

620 VT AB 13; HTAB 5^ PRINT "YOU HA VE" 

630 VT AB 15; HTAB 5S PRINT PP? 

640 IF PP --- 1- THEN PRINT " GAME":; 

650 IF-PP < > 1 THEN PRINT " GAMES"? . 

660 PRINT " WON AND" 

670 VT AB 17: HTAB 5; PRINT PCS 

6S0 IF PC ~ 1 THEN PRINT " GAME"? 

690 IF PC < > 1 THEN PRINT " GAMES"; 

700 PRINT " LOST SO FAR." 

710 VTAB 20; HTAB 5; PRINT "PRESS 'S* FOR STANDARD START INS" 

720 VTAB 22; HTAB 3; PRINT "LOCATIONS, ANY OTHER KEY FOR RANDOM"; 

730 WA IT - 16384 P 128 

740 GET A* . ■ ' " 

750 RN == NU 

760 IF A* = "8" THEN RN = 1 

770 GOTO 1 70 



tomputronic 



63 



-T 



Apple II 



I 



Super -Datei 



Super-Datei 

Das hier vorgestellte Apple-II-Pro- 
gramm verwaltet Daten aller Art. Bei- 
spielsweise können Sie Ihre Schall- 
platten. Videofilme. Programme, 
Schauspieler. Adressen und vieles 
mehr durch den Computer verwalten 
lassen. Jeder Datensatz kann bis zu 15 
verschiedene Informationen aufnehr 
men. Die unterschiedlichen Kriterien 
werden in Data 's eingetragen. 
Beispiel für ein Videofilm Verzeichnis: 
60000 Data Filmtitel. Länge. Regie. 
Hauptdarsteller, Bemerkung. 
Beispiel für eine Programmsamm- 
lung: 

60000 Data Programmname, Länge. 
Programmiersprache. Autor. Entste- 
hungsjahr. Bemerkung. 
Am Ende der Data -Zeile muß ein 
Komma stehen, da sonst eine Fehler 
meidung ausgegeben wird. 
Hat man die Data-Zeile eingegeben, 
so kann man das Programm mit RUN 
starten. Es stehen nun folgende Be- 
fehle zur Verfügung: 



} 



(S) Suchen 
(A) Daten ausgeben 
(N) Neuer Eintrag 
(O) Alphabetisch sortieren 
(Q) Daten abspeichern und Programm 
beenden 

Durch den Befehl (N) können Daten 
eingetragen werden. Durch (S) kann 
ein bestimmtes Kriterium nach einem 
Stichwort abgesucht weiden. Wird 
dieses gefunden, so wird der gesamte 
Datensatz angezeigt und man kann 
diesen nun Editieren, Löschen oder 
auf Drucker ausgeben lassen. Durch 
(O) können die Datensätze nach ei- 
nem beliebigen Kriterium sortiert 
werden. Mit dem Befehl (A) kann ein 
beliebiges Kriterium auf Drucker oder 
Bildschirm ausgegeben werden. 



Sind alle Eingaben oder Änderungen 
vorgenommen, so werden die Daten 
sowie das Datum mittels (Q) auf Dis- 
kette gespeichert. 

Nach dem Starten des Programms 
werden die Daten immer automatisch 
eingelesen. 

Das Programm arbeitet weitgehend 
mit einem Hauptmenü, so daß weitere 
Erläuterungen entfallen können. 
Die Anzahl der Datensätze richtet sich 
nach Speicherkapazität, Anzahl der 
Kriterien, Länge der Daten. 
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\EM *■*•**#*-*#******■■*•#■*•#•** VwQ 

REM SUPER- D A T E I » - 

REM (C) F.BRALL 1984 
REM *****#***■*##*#****** 
D I M 5* ( 1 5 > , DD* ( 5.00 , 1 5 ) , DP* ( 1 5 ) 
ONERR GDTÜ 1630 
J - 

READ S*(U) 
l'F S*<U) < > "" THEN LI = U + 1: GOTO Ri 

GOSUB 1470 

HOME i; IN VERSE : PRINT " SUPER-DATEI 

NORMAL 

FOR I = TD u -■ 1 

PR INT " < " I " > " T AB ( 7 > S* < I > 

NEXT I 

VTAB (19) 

PRINT "<S> SUCHEN <A> DATEN AUSGEBEN" 

PRINT "<N> NEUER EINTRAG <Q> SAVE DATEN" 
■ HTAB ( 20 ) : PR I NT " < > BORT I EREN " 

PRINT : PRINT "BEFEHL -> DATUM 

GET E* 

IF E* = "N" THEN 290 

IF E* = "S" THEN 370 

IF E* = "Q" THEN 1330 

IF E* = "A" THEN 540 

IF E* - "ü" THEN 820 

GOTO 210 

REM *** NEUE EINTRAGUNG *** 

HOME : PRINT "**** NEUE EINTRAGUNG *#**" 

PRINT 




(C) F.BRALL 1984 



DA* ■ 



HTAB 10 
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NICHT GEFU 



310 FÜR I = TD I...I ■■■■■ X 

3 2 P R I N "f ' L E F T * ( B * ( I ) ,16); T A B ( 17); 
330 INPUT ";: "5 DD* (0,1) 
340 NEXT I 

350 -=■• + i; BOTD 110 

360 REM **■-* SUCHEN *** 

370 VTAB 23: HTAB 1: INVERSE' : PRINT "SUCHEN"? 

380 (MO RH AI... : PRINT " NACH WELCHEM KRITERIUM ? 

390 HTAB 33;; INPUT ""iE* 

400 IF' VAL <E*> < DR VAL (E*) > U - 1 THEN 370 

410 VTAB 23;; HTAB 1: PRINT " 

420 VTAB 23; HTAB 1:1 = VAL <E*):. PRINT S* < I ) " "5 

430 INPUT "? "SSW* 

440 6DSUB 1100 

450 IF FI < THEN FLASH ; VTAB 23= HTAB 1: PRINT " 

N D E N M s: 6 El" E*" GOTO 110 

460 GOSUB 1:1.60 

470 VTAB 19: PRINT "<E> ED IT <L> LOESCHEN <C> HARTCOPY" 

4 B P R I N T " P R I N 1 " TAB ( 15)" < S P A C E > WE I T ER" 

4 9 V "t- A B 2 3 : P R I N T ' ' B E F E H L ■■- - > ' ' ? 

5 & GE 1" E * : I F' E * ;::; "E" THE N G S ÜB j. 2 4 " 6 T D 4 9 

510 IE E* = "C" THEN HONE ." PRtt 1: PRINT : 6DSUB 1180: PR# 0: CALL 1002: 

GOTO 460 

520 IF E* - "L" THEN 1570 

530 GOTO j. 10 

540 REN DATEN AUSGEBEN 

550 HONE ,1 PRINT " *** DATEN AUSGEBEN ***" 

560 PRINT 

570 FOR I ~~ TD U - 1 

.=.; B P R I N "!" ' ' < " I " " ■ " "f " A B < 7 ) S * < 3! ) 

590 NEXT I 

600 PRINT : PRINT "<A> ALLES AUSGEBEN" 

610 VTAB 23: HTAB 1: PRINT "WELCHES KRITERIUM"? 

620 INPUT " ? "üE* 

630 IF E* = "A" THEN 6150 

640 IF VAL (E*) > U - 1 THEN 550 

6 50 V T A B 2 3 ; H T A B 1 ; P R I N T " " 

660 VTAB 23" PRINT "MONITOR <M> ODER PRINTER <P> — >"? 

670- GET DG*: IF OS* < > "M" AND DG* < > "P" THEN 650 

680 IF OG* = "P" THEN PR# 1 

690 IF E* ~ "A" THEN 770 

700 HOME 

710 I ~ VAL (E*):Q = 

720 FÜR T = TD - 1 

730 PRINT DD*<T,I);Q « Q + 1 

740 IF Q > 21 AND QG* = "M" THEN G = 0S VTAB 23: HTAB 2: PRINT "< SPACE >." S 

: GET E*: HOME :' PRINT 

750 NEXT "!" 

7 6 P R I N T ; P R I N T ' ' < S P A C E > " 5 : GET E * : GOTO 110 

770 FOR FI === TD O - 1 

780 GOSUB 1160 

790 IF 08* - "M" THEN VTAB 23: PRINT " < SPACE > u ;: GET E* 

800 NEXT El: PRINT : PRtt 0: CALL 1002: GOTO 110 

810 REM SORTIEREN 

T " 



v I N T " S R T I E R E N " ü : N DR M A L 
KRITERIUM"? 



820 VTAB 23: HTAB 1: PRI 

830 INVERSE : VTAB 23: F 

840 PRINT " NACH WELCHES 1 - 

850 INPUT " ? "JE* 

860 7 - VAL <E*): IF T > U - 1 THEN 320 

870 FOR LI - TD D - 2: FOR L.2 - LI + 1 TO 
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880 


60SUB 980 


890 


IF Ql < Q2 TUEN 910 


900 


GOSUB 930 


910 


NEXT ,1 NEXT = (3010 U0 


920 


REM UNTERPROGRAMME EUER BUBBLESORT 


930 


FOR I = TD IJ ■- J. 


940 DP* ( I ) - DD* (L 1 , I ) 


950 DD* ( L 1 ,, I ) « DD* ( L2 , I ) 


960 DD*(L2, I) = DP*(I> 


970 


NEXT I: RETURN 


980 Z - 1 


990 (2 1 * ~ !i I D* ( DD* ( L. 1 , T ) , Z , 1 ) 


1 000 


Q2* = l v f I D* ( DD* ( L2 , T ) ,, 1 , 1 ) 


1(310 


IF Z > 15 TUEN 1030 


1 020 


IF Ql* = Q2* THEN Z - Z + 1: GOTO 990 


1 030 


Ql = 0: IF Ql* < > "" THEN Ql = ASC (Ql*) 


1 040 


Q2 ~ 0: IF Q2* < > "" THEN Q2 = ASC <Q2*> 


1 050 


RETURN 


1 060 


REM NACH STICHWORT SUCHEN 


1 070 


R EM S W * = S '!" I CH W Q R j 


1 080 


REM I -KRITERIUM 


1090 


REM FI -NR, DES EINTRAGES 


1 1 00 


T = 


1110 


IF DD*(T,I> = SW* THEN FI = Tu RETURM 


1120 


T = T + 11 IF T > - 1 THEN FI = - 1 s . RETURN 


1 1 30 


GOTO 1110 


1 1 40 


REM DATENSATZ ANZEIGEN 


1 1 50 


REM FI=NR- DES DATENSATZES 


1 1 to0 


HOME 


1 1 70 


INVERSE : RR INT " , 


1 1 80 


NORMAL 


1 1 90 


FOR I - TD U - :!. 


1 200 


PR I NT LEFT* ( S* ( I ) , 1 6 ) ; TAB < 1 7 > " : " DD* (FI, I ) 


1210 


NEXT I: RETURN 


1 220 


REM EDITIERE DATENSATZ 


1 230 


REM FI==NR„ DES DATENSATZES 


1240 


VT AB 3;; HTAB 1 


1250 


FOR I - TO [...! - l 


1 260 


PR I N T L.EF T * ( S * < I ) , 1 6 ) ; T AB < 17); 


1270 


X = PEEK (36) :Y « PEEK (37) 


1 280 


INPUT " : " ;E$: IF E* < > "" THEN DD*(FI,I) = : E* 


1 290 


VTAB (Y + 1): HTAB (X + 3)!; FR INT DD*<FI,I> 


1 300 


NEXT I 


1 3 1 


RETURN 


1 320 


. REM SA VE DATEN 


1 330 


HOME : VTAB .10: FR INT "DATUM: "DA* 


1 340 . 


VTAB .10: HTAB 7: INPUT " ";£*:;■ IF E* < > "" THEN 


1 350 


HOME : VTAB 10: PRINT "DATUM: "DA* 


1 360 


. PRINT : FR INT : PRINT "DATEN WERDEN GESPEICHERT 1 


1 370 


PR 1 NT OHR* ( 4 ) " OFEN DATEN " 


1 380 


PR I NT CUR* ( 4 ) " WR I TE DATEN " 


1 390 


PRINT 0: PRINT DA* 


1 400 


FOR I -- TD U ■- 1 


1410 


FOR T == TO - 1 


1 420 


PRINT DD*(T ? I) 


1430 


NEXT T, I 


1 44.0 


P R INT C HR * ( 4 ) " C L 8 E D A T E N ' ' 


1 450 


END 


1 460 


REM LOAD DATEN 


1 470 


P R I N T CHR * ( 4 ) " PEN D A T E N " " 



DA* 



E* 
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1480 P R I N T C HR * < 4 ) ' ' R E A D D A T EH" 

1490 TMPUT D: INPUT DA* 

1500 FÜR I ™ TO (J -~ 1 

1510 FÜR T - TO o - 1 

1520 I NPUT DD* < T , 1 5 

1530 NE KT T, I 

1540 PRINT CHR* (4) "CLÜSE DATEN" 

1550 RETURN 

1560 REM DATENSATZ LOESCHEN 

1570 ü ~ - 1 

15R0 FÜR T - FI TO n - i 

1590 FÜR I ~ TO Li - 1 

1600 DD* (T, I ) = DD* CT' + 1 , I ) 

1610 NEXT 1,7 

1620 GOTO 110 

1630 REN ERROR UNTERDRUECKEN 

1640 FE = PEEK (222) 

1650 IF FE - 5 THEN 110 

1660 FL ABU : PRINT "ERROR "FE." NORMAL : ENI) 

60000 DATA F I L.MT I TEL , L AENGE , REG I E ., MUS I C , HAUPTDARSTELLER , BEME 
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Shape tables 

Mit Hilfe dieses Programms können 
vom Benutzer bis zu 255 Hires -shapes 
mit einer Matrixgröße von 40x20 
Pixels erstellt werden. 
Bei Beginn wird gefragt, ob man die 
Startadresse $9oo0 beibehalten 
möchte. Dieser Bereich ist gut nutz- 
bar, da viel Speicherkapazität zur 
Verfügung steht. Andere Adressen 
wären S2000- 600O im Bereich der 
HGR- und"HGR2-Seite. Dabei muß 



ihape tables 
c) 1984 von Mark Heene 
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Shape -tables 



man darauf achten, daß man die Pro- 
gramme nicht in der Seite schreibt, in 
die man die Shapes abgelegt hat. Sie 
gehen sonst verloren oder werden 
teilweise zerstört. 

Hat man die Startadresse festgelegt, 
wird man nach der Anzahl der Shapes 
gefragt. Höchstens 255 und min- 
destens 1 Shape(s) müssen eingege- 
ben werden. Für die Definition wrid 
eine Punkt matrix im Textfeld gezeigt, 
auf der man die Shapes definieren 
kann: I=nach oben, M=nach unten, J= 
nach links. K— nach rechts. Mit der 
Taste .A' werden Punkte gesetzt bzw. 
gelöscht. Im untenliegenden Feld 
werden die ,X'- und .Y' -Werte der 
Cursor position angegeben. Ist das 



.<?.<?.<>.v.<? ,<>. 



.<?.«• <>.<>. s. 'v. «..';-, 



Shape fertig, bewegt man den Cursor 
an die Stelle, wo man den Ausschnitt 
haben möchte. Angenommen, das 
Shape ist 12x5 Punte groß, bewegt 
man den Cursor an diese Stelle und 
drückt .RETURN'. Danach wird das 
Shape compiliert in den Hires-mode 
und ausgegeben, falls keine anderen 
Shapes definieri werden sollen. 
Möchte man das Shape abspeichern, 
gibt man den Namen ein und erhält 
automatisch die erste Programmzeile, 
die mit der Rechts-Pfeiltaste eingele- 
sen wird. 

Für Cassettenbenutzer: Die Dez.- 
Startadresse ist die Variable ,G\ die 
Endadresse errechnet sich einfach 
aus der Variablen ,PO*+l. Die Hex.- 
Startadresse ist die Variable ,SL$'. 



10 TEXT : HOME 
20 GÜBUB 930 

30 S - S + 1; IF .5 > SH TUEN 760 

40 FÜR I =.::■ l TD 20 ü L* ( l ) == : " " » NEXT I:C = 0° HOME 

50 FÜR: Y - 1 TO 20:: FOR X - 1 TO 40: HTAB X: VT AB Y: PRINT " „ " : P* <X, Y> 
". "; NEXT X: NEXT Y 
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60 POKE 34,20 

70 X -■ l:Y « 1 

80 VT AB 22; HTAB 5s PRINT "X = 

90 VTAB 23! HTAB 5: PF; INT "Y « 

100 VTAB 21: HTAB 16: PRINT "SHAPE " 3 I SN VERSE :. PRINT SS NORMAL 

110 VTAB 23: HTAB 12s PRINT "<RETURN> BEENDET DEFINITION" 

120 VTAB 22^ HTAB 9: PRINT " ": VTAB 23: HTAB ?; PRINT " " ; VTAB 22 S HTAB 

9". PRINT X; VTAB 23; HTAB 9; PRINT Y 
130 HTAB X: VTAB Y: GET A* 
140 IF A$ = CHR* (13) THEN 320 
150 IF A* = "I" THEN GOSUB 2102 GOTO 200 
160 IF A$ -■ "M" THEN GOSUB 230; GOTO 200 
170 IF A* - "J" THEN GOSUB 250" GOTO 200 
180, IF A* ~ "!<" THEN GOSUB 270,'; GOTO 200 
190 IF A* - "A" THEN GOSUB 290!; GOTO 200 
200 GOTO 120 

l; IF Y - THEN Y = Y + IS CALL. 



IF Y 



21 THEN Y 



= Y - i;; call 

X + 1 ; CALL 



198 

198 
198 
■ 198 



: # 



nnrn 31.0 



210 V --■ Y - 

220 RETURN 

230 Y == Y + 

240 . RETURM 

250 X ~ X - II IF .X = THEN X : 

260 RETURN 

270 X ~ X ■•(■ II IF X = 41 THEN X 

280 RETURN 

290 IF P*<X,Y) = " ., *' THEN P* ( X 

300 P*-(X, Y) = " = " 

3 1 HTAB X : VTAB Y : PR I NT R* ( X „ Y ) " RETURN 

320 HONE 

330 VTAB 21S HTAB 3:; PRINT "X = "X" , Y = "Y 

340 XI = 1 ~ 

350 X2 = X 

360 IF X2 / 2 < > INT <X2 / 2) THEN X2 = X2 + 1 

370 ; Y1 :::; 1 

380 Y2 = Y 

390 IF Y2 / 2 < > INT <Y2 / 2) THEN Y2 - Y2 + 1 

400 FOR I - VI TO Y2 

410 C ~ C ■+- 1 

420 FOR ,7 = XI TO X2 

430 !....* ( C ) :::: L* < C ) + P* \ J ,i I ) 

440 NEXT J 

450 NEXT I 

460 TEXT : HOME I FOR I - 1 TO C: PRINT L* ( I ) r, NEXT I 



470 IF Q THEN 490 

480 POKE G,SH: POKE G + l li 0;pQ 

490 PP = PO -- r + 1 

500 GOSUB 1210 

510 POKE P„P1;; POKE p + i„P2:P 

520 FOR 1 = i TO C STEP 2 

530 FOR j =: xi TO X2 - 1 

540 C* = MID* ( L* ( I ) „- J , 1 > 

550 IF C* = "„ " THEN KE 

560 KE ~ 5 

570 PO = PO + ;!.;; pQKE PO,KE 

580 NEXT J 

590 C* = MID* (L* ( I ) , J , j. ) 

600 IF C* = "„" THEN KE =■■ 2S GOTD 69« 

610. KE = 6 

620 PO ~ PO + l; POKE PO..KE 

630 FOR J ~ X2 TO XI + 1 STEP - 1 

640 C* -~ MID* (L* ( I + 1 ) , J, 1 ) 



+ SS + l;p - G + 2:Q 



P ■ + 2 



1 : GOTO 1570 
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650 IF C* » "," THEN KE '- 3: GOTO 670 

660 |<E - 7 

i7<3 PO =s pH + l: POKE PCLKE 

6B0 NE XT ..7 

690 C* = :: MID* (L*(I + DjtJjl) 

700 " IF C$ = " * " TUEN KE =■■ 2: GOTO 720 

"7 10 KE = 6 

720 PO -■= PO + ü POKE PO,,KE 

730 NEXT I 

740 PO = : = PO + :!. ;; POKE PO.,0 

750 GOTO 30 

TA0 TEXT : HOME : VT AB 1.2; HI AB 1.5: PRINT "FERTIG. ..." : FOR I - 1 TO 1.000 

: IMEX"!" I 
770 HOME :■: HGR 

780 SX « ■■- 35 "SY « :!.0;; POKE 232, HÜ POKE 233 , H2 
790 FOR I ss i TO SH 
800 HCOLOR™ 3;: ROT= 0° SCALE- 1 

810 SX - SX + 45;; IF BX > 240 THEN SX - 10: SY » SY + 25 
820 DRAU! I AT SX,, SY 
830 NEXT I 

940 VTAB 23: HTAB 14: PRINT "TASTE.,,.-" 
850 W A I T - 1 6 3 8 4*128: GE T W * ° TEX "!" : H ü M E 
860 INVERSE : VTAB 5: HTAB 5: PRINT "SHAPES SPEICHERN ?"s: NORMAL : INPUT 

11 " : Y* 
370 IF Y* » "IM" THEN HOME : END 
880 V T AB BZ P R I N T "DI E F L GE N D E P R GRAMMZEILE M I T DER : ' - > ' TASTE EIN 

L E S E IM , I...I N D A L S P R P " . A M M - A N F A N G V E R W ENDEN." 
890 VTAB 12;; INPUT "NAME ;; " ; N* 

900 PR I NT ;; PR I NT OHR* (4)" BS AVE " N* " . SM ARE ., A " G " ,, L " PO - G + 1 " " 
910 VTAB 15: PRINT "010 HIMEM" "G" : D* - CHR*C4) : PRINT : PRINT D*" CHR* 

<34) "BLOAD "N*" , BHAPE , A"G 11,! CHR* (34)" : POKE 232, "Hl" : POKE 233, "H 
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920 . VTAB 14: NEW 

930 VTAB 5: IN VERSE » PRINT " SHAPE "I" ABL. ES 1984 VON MARK HEENE " : NORMAL 

940 SL# ::i - "9000" 

950 VTAB 8: CALL -■ 958: VTAB R;; HTAB 5: PRINT "START ADRESSE : *"SL* 

960 VTAB 10;; HTAB 5" INPUT "AENDERN ";Y*: IF Y* = ; "N" OR Y* ~ "" THEN 990 

9 7 V T A B 1 " ' H T AB 5 1 PR I N T ' ' N E U E A D R ESSE: ( " ; : I N V E R S E : PRINT "FORMAT : X 

XXX"?;; NORMAL ,: PRINT "> *" 5-S INPUT " " •; SL* 
980 GOTO 950 
990 D I IM L* ( 20 > , P* ■; 40 „ 20 ) 

:!. V "!" AB 15; H T A B . 5 ; P R I N T " A N 1 AH !.... D E R SH A P E S < IM A X . 2 5 5 ) : " ; 
10.1.0 VTAB 15S HTAB 34: INPUT "";SH 
1020 IF SH ::■- 255 OR SH < 1 THEN FLASH ;: VTAB 15: HTAB 24: PRINT "MAX. 255 

" :: NORMAL : GOTO 1010 
1030 FOR I == 4 TO l STEP 1 

1040 C* =-- MID* (SL*,,!,,!) 

1050 IF C* > = "A IF AND C* < - "F" THEN D = ASC {C%\ - 55: GOTO 1070 

1060 D == : VAL (C$) 

1070 G - G ■+■ D # 16 ■■'"■ F 

1080 F - F + Ü NEXT ÜF = 

1090 FOR I === 4 TO 3 STEP ••-- 1 

1100 Ct» "= MID* CSL*, I ,, 1 ). 

1110 IF C* > = "A" AND C* < = "F" THEN D = ASC (C*) - 55: GOTO 1130 

1120 D = VAL (C*) 

1130 Hl = Hl •+• D * 16 ""■ F;;F - F + 1: NEXT I:F = 

1140 FOR I ~-, 2 TO 1 STEP -■ 1 
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1 150 

1160 
1170 
1180 
1 1 9« 
1 200 
1210 



1 220 
1 230 
1 240 
1 250 
1 260 
1270 
1 280 
1290 
1 300 
1310 
1320 
1 330 
1 340 
1 350 
1360 
1 370 
1 380 
1 390 

1 400 

1410 
1 420 
1430 
1440 

1450 



F 



THEN D ~ 

i;F 



ASC (C*> 

■■ 



GOTO 1180 



C* = MID* (SL*, I, 1) 

IF ü* > = "A" AND C* < 
D = VAL <C*> 

H2 - H2 + D * 16 •"•• FüF « F + 1 « IMEX' 
SS ~ 2 * SH 

HIMEM: ß: RETURN 

DATA 3 ;t 768,2,5123 1, 256, F, 240, E, 224, D 5 208, C, 192, B* 176, A, 160, 9, 144,8, 
1 28, 7 ,, 1 1 2 , 6 , 96 , 5 , 80 , 4 ,, 64 5 3 , 48 9 2 , 32 ,1,16, F, 1 5» E s 1 4 s D ,, 1 3, C, 12 , B , 1 1 , A, 1 
i, 9 , 9 ,, 8 „ R ? 7 1, 7 , 6 , 6 « 5 ., 5 , 4 9 4 , 3 9 3 , 2 , 2 ,1,1 
PI ™ 0:P2 - 
HX* « " N : RESTORE "FE = FF 

READ H*,DQ 

IF FE > ~ DG THEN PE - PE - DQ'üHX* " HX* + H* 

IF PE = : THEN 1280 

GOTO 1240 



IF PF < ~ 15 THEN HX* - "000" + HX*: GOTO 
IF PP < = 256 THEN HX* » "00" + HX*: 60 TD 
IF PP < = 1000 THEN HX* = "0" -i- HX*S GOTO 
IF LEN (HX*) = 3 THEN HX* = HX* + "0" 
IF- LEN <HX*> - 2 THEN HX* ™ HX* + "00" 

QQ - 0: FOR I a 4 l'Q 3 STEP 

C* « MI D* (HX*, I, 1) 
IF C* > == "A" AND C* < 

ü = VAL <C*> 

PI = PI + D * 16 ■■'- QQ 

QQ = QQ + l: NEXT I 

QQ = 0: FOR I = 2 TO 1 STEP 

C* = MID*'- (HX*, I, 1) 
IF -C* > = "A" AND C* < = 

D - VAL (C*> 

P2 - F'2 +• D * 16 ""■ QQ 

QQ - QQ +• 1: NEXT I 
RETURN 



1310 
1310 

1 3 1 



1 



F" THEN D == ASC (C*) 



1 



F" THEN D = ASC <C*> 



55: GOTO 1370 



GOTO 1430 
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Tomstone- City 

für Atari 600/8 OOXL 
In diesem Spiel muß man versuchen, 
durch Abschießen des roten Sheriffs 
soviel Punkte wie möglich zu errei- 
chen. Dabei wird man von kleinen 
Männchen behindert, die Dir nach- 
stellen und Dich vernichten wollen. 
Die kleine Stadt in der Mitte des 
Spielfeldes gewährt Dir Schutz vor 
diesen Feinden. Wenn alle Sheriffs 
vernichtet sind, gibt es einen Bonus - 
und ein neues Feld wird aufgebaut. Du 
kannst wählen zwischen 9 verschie- 
denen Schwierigkeitsgraden. 



10 
1.1 
1 2. 
\ z ' 
1.4 
15 
l€ 
17 
1.8 
19 



'"'S 
3fi 
31. 

' -i V 

■34 
35 
"'•€• 
-.j i 

'"! 9 

4t ; i 
41 
42 
4"": 
44 
45 
4£ 
4 7 
4:-i 
49 



REM 
REM 
REM 

rem 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



*:m*******:m;m********$ 
* * 

TOME S TONE CITY 



<r> II .4. 1.984 foy 
F" 1 T\\< e'flhof { 

367Ö Ni.evibu.r9 
Tel , =050?1--"12077 




************************** 

7 s V -3. r ■ i a b '!. e t ' 1. 1. e r !.... C R T E 

8 T :: -~ S t- i c k a b f !■"■ s. 9 e 
8 ü ™ S C' f.! "i"! d v ■?. r i a b 1 e 

R , B , C , D-V i e '!. zweck var i ab '!. evi 

H ■:■■: V ::= El '":' W e 9 U. Vi 9 ':■ !■"■ i C. b t U. Vi 9 3 C h D D Vi e 1 
H 1 : :'-: V 1 ::::: G |:: - W e 9 i.J. 'i"! 9 & r i C b t ■ U. n ~i S c h U. :"!■ :■ 
HF' :=: H y, :?; ::i j-, 1 rj p (-• F p i y, ,"j p 

fi K = R n z a h 1. . de r !< a k t e e vt . 
H ■:::; --■ f\ •,••, :; r ,r f !-, 'j h e !-• S h e r i f f : : =. 

FN^Feiridriu.mmer- 

[•( f\j = [■.;' ;i j. : ; f. |i « ,-, | j jYj (•,-, p j.-. 

[■:;' £' :iv. p 1 ,1 Cf f ' 1 1 p r Vi p i..i. p V! !< .3. k. t . 1. .1. ■=. 
p p ;:x p 1 ;;i Q f' \\ P (•"■ "i "i P I.J. P u F' "™' 1 Vi d 
L E ::=: R Vä Z •:?. h 1. d "ir:' I"' L. ':"■ b 6" Ü 

■ ::: ;G=Schui i er i 9 k e i ts9rad 

c;.;; h !J«COl.XtR f uer Sc ho o vier 

F ';■■■, t. F V = G e w e 9 u. 'n 9 ■■■ r • i c h t u. n 9 F : e i vt d 

!"> X ':'-r '"• r' - s ■"' c h o ü Vi e !•"■ k o o r d 1 Vi •"?. t e vi 

R ':■', !:!•: P V :: - : Sc h m. «. «. k o o r d i vi a te n 

F !=■:! ( H > t-. F V < N > ~ F : ' e i n d k o o !■*• d :i. n a t- e vi 

!< X ( !'•! ■' •'■■■ K Y ( hl ■' ; ™ : K a k t ■ i..i. -• k o o r* d i n 3. t, e vi 

* I h :i. t i. a I i ■?.■ i e r u. vi 9 * 
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1 R0 D I M fl$( 44 > , KXC 1 50 j , K VC 1 50 ) , S( 1 5 > , FX( 6 ) .. FYC 6 ) 

110 I F PEE K *• 1 6 3 9 2 ') < > 2 4 T H E N P K E 5 5 9 , O : G S U B 32080 

1. 20 S< 1. 4 >= 1 6 1 : S 1 - 1 3 ■■" 1 62 : S( 7 >= 1 63 : S< 1 1 >~ 1 64 : S< 5 >» 1 63 : S< 6 >» 1 63 : S< 9 >= 1 64 ! SC 1 6 >* 1 64 

190 COS MB 16@R0 

2 G S ÜB 3 : S C : =~ : !.... E =="= 3 

999 R F M 'k B i 1 d s c h :L r tu •=». u. f b -?. u. :* 

1.000 GRAPHICS 17=PÜKE 710,148=POKE 709, 8= POKE 708, 54 ■ POKE 71 1 .. 130 ; POKE 712.238:? 

HKE 756,64 

1010 GOSUF: 3 1 800 : FH=0 : KH™0 : K';K & >=■■" 1 9 = !<V< >~=0 = FF=0 = KF=0 : flF-0 - Flk>0 = H"0 ; V»0 = Hl »0 = V 1 = 



1 030 G 3 ÜB 2 9 : G S I. J B 2 7 O = G S U B 2 3 

1 5 G S U B 2 4 ; 8 X s ;|. : 8 y := i ;(. = r. OL P 1 6 4 = P L T S X .- S V 

1999 REM * H^!.i.PtPro9i-.?.r«!iv, :*: 

2000 S C 1 5 ) = S ( S T > : S T = S 7' I C K '• ) : I f :: ' S T F: I G '■ S > =■» T H B N H 1 » H : V 1. " : V : G S U R 2 50 

2 00 5 I E S "f ' :::: 1 5 . T H E N K F ~ !•=:' F + , 3 : F F ™ F F + .. 3 = G "[' 2 5 
2 10 H ~ ~ ( 3 T > 8 R M D S T < 1 2 > * ■■ S X > 9 '■' + '■ 3 T < 8 > * < S X < 1 3 > 

2 2 '.,' s ■- ( § T = 1 4 > * < 8 V > 1 ■■ + < 8 "f " k= 1 3 ;:■ :*: ( s y < 2 2 > 

2028 KF=KF+1 : FF=FF+1 : LOCKTE SX+H , SY+V, Z : TF Z< >32 THEN COLOR S( ST ) : PLO'T* SX, SV ; GOT 

2050 

■2040 C OL R 3 2 ; P L. "f ' S X , S V = 8 X = S X + H = S V ~ 8 V + V = C L R 8 < S T > ; P L Ü T 8 X , 8 V 
2 5 I F K F >5 - S G T H E N !< f : ' -- O • G 8 ÜB 2 3 O 
2060 GOS'JP 2 8000 : GOTO 200 S 
15999 F. EM :*:. SP i p I a rt f. p i t ». i y i 9 :*: 

:l 6 G PAP H 1 C :; : ; 1 7 : P 1- ' E 7 O : :: : .. 1-9 3 • P S I T T H 1. , 1. 1 ■ ? # i- : : .; " 3 P I E! I... R E G E L. N ' 7 '• ... l ■■•' W>" • POK E 764 , 

t" ... i- ' 

1 6 fi 1 f -! = P E E K ( 76 4 "■< ■ X F R ■■= 2 5 c: ' T H E H 1 6 1 
lf : :02i"i TF fls=35 THFH RETLIRM 

1 h Fi 3 I F Fl < > 1 T H E H 1 6 1 

1. 6040 'GRAPHICS O : POKF 7^9 , ü : i : POKF 7 1 i"i • 2^2 : PORP 7 1 2 . 1 9ft : Pf'iKF 82 , f"i = pnh'F 7 c l^ , 1 'POKE 
7 c:: i6,204 ' 

16050 ? "ü.Dm MM.sst '..'er-.u.cheri ■ durch abschiessi-ri der roten Sheriff* =o vi>l* Pu 
rikl'-e wie" 

1 6 6 ' ' : " ' ' m 9 '!. i c h t u. e r- r- e i. r h e r i „ r) : ? b p i i,.i i. r s t d u. v o n k 1 e i ne ri , 9 r 
T! p n M "fi n c h <=■ V"! b "=■ h i ri d e r t •' k e i ••••■ ' ' ; 

16070 ? ' ' n e \'lw* men -=.ch e -n ' ■' , d i p d i r n ich «. t e 1 1 en u. nd d i ch ;,<ern i c h t e-n i jr. 11 t»n . D i p 
S *■■■?. dt in"; 

16H80 ? "der Mitte- des SPielf>ld*s 9ewhrt dir Schutz vor diesen Feinden. Wenn 
•?. ! 1 e " 

l^WMi-j •■■■ "Sherif f-;-. 3.b9e sc hosten sind, 9ibt es ei- nen Bonus und eine tipmp« F^ld i,i 
ird . : uif--" 

16100 "• M 9eb-u.it:." = ■"■ "Es gibt 9 Srhi,ii.eri9keits9rade, wobei 1 einf.*rh und 9 «.rhi-w» 
r bpdei'.tet,, " 

1.6110 POSITION 0,15 = ? " ::!:::*::+: RM-.-Kp *=-ir,p Ta*.\-.* dr 

rken **:*:" .; = POKE 764,255 

161.20 IF PEEfcX 764 ':«~255 THFH 1619PI 

16130 RETURN 

169^9 REM * Sound bei Feiridbei,.ie9i.i.rt9 % 

1 7 8 p ! . I H D - , , 6 = S 1 J H D , , • = P E T U F<: H 

1 7 9 9 9 R E M * fi '!. I e S he r i f f s 9 e t r o f f e n * 

18000 S G :: = S G + 1 *: ( S G < 1 > ; S C = S C + 1 

1 SB 1.0 ? # 6 : " ij. " : R E S T R E 1 8 5 = B -=■ 8 

18020 FOR ft-=2 TO 6- POS IT JON fi, B = RERD C-? #6; CHR*< C ) ■ B™B+1 

1. 8030 C~ I NT( RND< )*50 H50 ^ FOR D= 1 TO STEP -0 „ 5 : SOI IND . f: , 1 , D ■ NFXT D : SOI IND 8 . 

• , 

1 8040 HEXT fi = POS I T I OH 8 , 1 = ? #6 : " 1 09 P o i nts " 

1 «050 COLOR 42 : PL.0T 0,6 = DRRNTO 1. 9 , 6 = DRRU! TO 1. 9 ■ 1 4 = nfi'RWTn Pi . 1 4 = DRRWTO fl . fi 

18060 POSITION 4,17 = '"' #6; "Prüss stOrt" = POSITION 4,19:? §,;;; : «'f. p } ■-■t-.y-'- M | I» 
18070 IF PEEKC 53279 X >h THFH 1807« 
.18030 GOTO 1000 
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18590 DRTR 98 , 1 1 1. , 1 :!. O , 1 1 7 , 1 i 5 
13999 rf=;N * Schi». ss lüPsche'n t 

1 90fi0 COLOR 32 = PL OT PX-Hl .. PY-Vl : COLOR S< ST > : PLOT 3X , SY = RETURN 
1^999 REM t Sou.rid bei Treffer t 

20OÖ0 FÜR R=0 TG 40 STEP 2 ■ SOUND 0,R,0,8 : NEXT R : SOUND , 0. 0. = RETURN 

2 8 9 9 ' RF M * R 1 1. ■? !.... e b e y> v e r l o r e n '■*'■ 

2 1. S C OL. Ü R 3 2 = P !.... T F ';■«. F H ) , F Y< F !'•■! > : C 1 ... R 1 3 3 r p L DT F X< FN > + F X .• F VC FN >+ F V 

2 1 1 P S I T I ON 6 .. 1 1 ; '? # 6 .: " 9 .»f. m p o v e r ' * : RE 3 T R E 2 1 5 

3 1 02Ö RERD H , B : I F R=» 1. THEN SOUND , O , , = GOTO 2 1 040 

2 1 030 SOUND , R , 1. .. 8 : FOR C- 1 TO E5 : NEXT = GOTO 2 1 020 
2 1 4 P S T T T o N ' 5 , ;!. 3 = ? # 6 .; ' ' p i- e : =. « s t -3. r t " 

21.050 IF PEEK»: 52279 ><>6 THEN 21050 

21.060 GOTO 2O0 

2 1 500 DRTR 36 > 60 ■ 81.« 1 90 .. 72 .. 60 .. 8 1. .. 60 , 9 1 .. 90 .. 68 .. 1 90 .. 8 .. 69 

2 1 5 1 R DRTfl 96 .. 60 .. 8 1 .- 1 90 ■ 72 , 60 , 8 1. .. 60 .. 9 1 .. 90 , 1 83 .. 1 90 

2I520 DRTR -1. .■■-1,--1 

21999 REM t Ein Leben verloren t 

2 200 L E = !. . E '-• 1 ■ I F !. . F =0 T H F N G 8 U B 2 4 O Ft ■■ G TO 2 1 

220 1. i"i FOR R" 1 TO RF : COLOF? 32 ; PLOT FX 1 - R >, F'Y 1 ' R > : HEXT R • RF=0 : FN-0 : FF« 6 : KF-0 

2 20 20 PL T 8 X '.. 8 V : FO R R = 1. O 1" 1 5 O = 8 U H D O , R , 1 , 1. : HEX T R ; SO UN D 0,0,0,0 

22(330 FOR R™ 1 TO STEP -i/i „ 2 : SOUND , 1. 00 , 1 . R ■ HEXT R = SOUND- 0,0,0,0- GOTO 1050 

2 2 '^ 9 3 R F M t !< a !-: t ■..'. s b e r- e r h n 1. 1 n 9 e n 'i: 

23O0O CO! OP 32 ■ PI OT \-0<'X KN ), KV<:' KN '■' : POKE 77 , 

2 8 1 l< N ~ !< N + 1 : I F K N > R !< T H E H !< N :::; 1 

2 3 O 2 O C L R 1 3 5 = P I. .. T !< X < !< H > , K V ( K N > : R E T U R N 

239^9 PEM t P\rtT.<?-i 9p ' : ! : ' 

2 4 O P n ,: i : ; J 1 1 H , = ? # 6 ; " S c R E ; " ; S C : P 8 1 T T N , 2 3 : ? # 6 ; " SC HO ONE R : " ■ L E * RET I JRH 

249 c:|C| REM :*' c ;rhn«.:=- * 

250k!0 80 "0 : PX-8X : f"'Y" : -3V : TRRP 253O0 

2 50 1 S = S -1- 1 : P X = P X ■■!- H 1 : P V= P V + V 1 = IF P V < 1 R P V > 22 THEN 25 1 

2 5 2 f.... C R T E P ; : < ■ P V ■ Z : I F ^ - ; :: > 3 2 T H E N 3 U N D , , , : G TO 2 5 1 90 

2 5 i"i 3 C !■ R 3 2 : P 1 T P X -- H 1 :* >'. P X - H 1 < > 8 X ) , P V - V 1 * < P Y - V 1 < > 8 V ■' : CO L OR 1 6 9 ■ P LO T PX ^ P Y 

'"'■■'. 5 O 4 S !. I H D O .- ': : : • , 6 : 1 ■■ F : ' :::: !< F™ + O » '! ' F" F ■"■■ F F + ,= 1 : G T 2501 

■ ::, 5100 TF ?.~? THEN 25300 

25110 IF Z--38 THEN RS~RS»1. =80=80+5 -COLOR 32 ■ PLOT PX..PY = GOSUB 19000 'GOSUB 24000 «G 

S 1 1 B ; ::: ' O t ;;: i O : G T 2 52 9 8 

25120 TF 7" 1.33 THEN 25500 

■ :: '5? :, 90 TF R3 : =0 THEN POP 'GOTO 1.80PI0 

2 5 3 t"i O 8 1. 1 N D , . , O = G 8 !. .! B 1 9 O O = F !. . U T 3 X ■ 3 V : R E TU RH 

25.499 RFM t F'-r- i. rN"1 9*=-tr'0ff pti i' 

25500 COL.OR 7: PLOT PX, PY : SC«SC+50 = -GOSUB 24O0O = GOSUB 1.9080 = RK-RK+1 = IF RIO150 THEN 

RK : "1 
2 5 • : : i 1. G S ! i B 2 O : !•■' X < f\ !< ':• "~ P ':■< ■ \< Y ( R !< > = P V 

2 5 5 2 F R R :;::: 1 "!" R F = I F F ';■< < R ■' : - : P X RND F V i R ) = P V T H E N 2553 
2 5 5 2 5 N F X T H ; G n "f ' 2 5 3 8 O 

25530 PHP :FOR B=R TO RF-1 : FX( B ).=FX-r. B+l > : FY( B >«FVC B+l V HEXT B ■ RF=RF- 1 = FN=0 '■ GÖTO 
253A0 

25999 REM * Neuer- E : V-' IviH e-rsrF-iP-rrit '*: 

26000 IF .RF~6 THEN RETURN 

;■::! f, 1 R F ::::: R F •!- 1 : F X ■■ H F ') ■" ■■ K X < !< H > : F' Y '■ H F r ) " :: !< Y < KN > : TR R F : ' 2 6500 

26020 FX=SG!-K 8X--FX< RF ) :• = FY™8GN< 8Y--FYC RF.Ü ■■ = LOCRTE FX< RF >+FX, FV< RF >+FY, Z • IF Z< >32 

THEN 2:6500 

2 6 3 O F X < R F :: ' > = F X '■ R F > + F X : F Y '■ R F ') "■■ F V ( RF ':• + F V : C 1 . P 1 3 3 : P L OT F X< RF > , F V < R F ) : TR RP 40000 = 

RETLIRN 

; ■;: 6 5 RF : - R F -- 1 :1 : - '■ F! F ' > 1 ':■ : T* P R P 4 • R E T U R N 

?h999 REM :t Ri.ifh.au. dipr Sherif'fs * 

: ::> 7 Fi C L R 3 8 : F' R R ■■"■ 1 T 3 -i- 3 G 

8701.0 B~INT<'PNrX0::'*20?J : C™IHTO?ND';0>*22>+l = IF B>6 RND B<14 RND C>8 RND C<16 THEN 

8701.0 
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2 70 2 !.... C RTF B , C , 2 : I F 7 -■ 3 2 T H E H P L T B , C = H E X T f : l : Fl S » : 3 + 8 G : R E T UR N 

2 7 PI 3 @ G T 2 7 8 1 

2 7 9 9 9 R E M ¥ B €■ oj p 9 u. n ■■■ j c! e r ■ F ■=■ i n d p £ 

2 £ I F F F > 2 •••- 3 G R RF : ' = T H E N F F ::;:: : G 8 U B 2 6 @ 

2 R 1 F H ;::: F !-•! + 1 ■ T F F N > FlF p F H <' 1 T H E N F N = 1. 

2 8 2 F X - : 8 G N < S X F X r; p w > > = f Y ™ 3 G N C S V - F Y < F N > > 

2 S 3 1 F F X ( F H ) +F X ' •• 7 AM D F X '■ F N j + F X ■< 1 : ' :: ! Fl H D F Y ( F N > + F :: " Y "■■■ 9 R MD F Y ■:" FM •' + F Y < 1 R T HF N P E Tl I 

PN 

2 8 4 I... Fl T E F : ' X ( F H ':- + F X .< F Y ■:' F M ':■ ■■*•■ F Y , 7 

2 8 3 T F 7 -~ 3 7 T H E H C I ... R 3 2 ■■ P !.... Fi T F X ( F N j .. F Y f. F !'•■( > : F~ X < F N > - F X ( F M ?j + F X • F Y < FN >~- F Y < F H > +F Y 

: i" S l J B 1. 7 : G Fi 7 2 h 8 ft 

2 ft b I F Z '•■ 1 6 Fi N D Z < 1 6 5 T H F !■■! F' P : G T 2 2 

2 8 F: i ": !.. . n R i 3 3 ; P L Fi T F X < F H ':■ . F Y '" F N ■' : 9. F. T LI R N 

28999 REM ■*■ H'..',F!::>.; : i,n, der K^kt^evi ■£ 

2 9 8 F: !.... Fi f." 1 7 : F' F? f\ ■■'■ '!. T ü 1. 5 ■■(■■ 8 f; 

2 9 1 B ~ I N T < F. N D '■ 8 ) :*: 2 ß ' > : C *- 1 N T C R N D ( Fi > :*: 7 2 ) + :!. = I F & > 6 H n d r < 1. 4 fl N D C > F: R KD C < 1 6 T HE N 

39810 

29020 L. f: Fl T F R - (": - 7 = T F 7 == 3 3 '!" H E N P I. . Fi T B .- C : !< '//.. Fl > = B ■ l< Y < Fl ) ~f: = !'••! E X T fl : fl K " : " 1 S + S G = R E 7 ü R H 

29030 GOTO 3F f 0:!. f:! 

2 9 9 Q 9 R E M '$■ 3 •:: h m :!. p i ■■■ i Q k n?- i t. : ::: ^ ' '■ -=i. ■:■! "! : : 

3 R 8 G R R P H T F: F: 1. ; :: ' : PO !■" E ? O F; 5 1. 5 ; p n !■=:' F 7 9 .. 1 9 8 : P i< F». 7 1. Pi , I 6i S 

300 1. POS I T T OH 5 .■ 1. 1 : ' 7 #F; ; " ! . EVEL. 1. " = C :G~ 1. 

3 i"i 2 O P ,= : T T T n H 3 • 4 : ' ? # h ■• ' ' ■!- r< rr* ! '> - ■(: n m <=■ >':: i L 4 ' ' 

3 9 " : : P -: I T T H 4 .17 = " ? # 6 : ' ! P r \ I " : :. «■ -■ 1 r t" ■ F n F; T T T n I- 1 c ; , 1 9 = -" : ' #f, \"t R ! ! ! ■.! Y '"■ " -F Fip fl ■- j T Fi 
1.00: HEXT R 

3 f 1 4 1 -i I F p F E K ■:' ■ :: » 3 2 i :: ' ':"' > : ^ : 6' T H f : ' H R E 7 1 ,! p |-i 

:'"s c;: i T F p E E K -■ 5 3 2 7 9 ':■ < > ^ 1" !-! F N '3 4 9 

30060 SG=SG+1 : IF' SG">9 THEH SG ::s 'l 

3 7 P 3 1 T 1 ! - ■! 1 3 . 1 1. - ? # !: : :i ; C H R $ ( ■■"; I" + 4 3 > 

300 3 F p R -- } 2 T °- T F" P ••- „ c =i = 8 1...1 HD , 2 , 1. , R ; 8 U !••! D , 2 ;" : ' , 1 .. R ■ H E X T R 

3 f"i 9 3 Q I . I H D .. .. .. : G T ■": i; : i 4 

30999 REM t Ruf hau d^-r R"F. : ;"':M'- :1- 

3 1 O Fi F i "i R Fl ::::: 1 Fi T 1. 4 8 T F. F ?.. ■ P ,::: ; T t T Fi H F: , f : ; = ? # 6 .; ' ' § p e " = h E X T R ; R E T 1 J R N 

3 1 ~J 99 F.F. M * Z 8 i. c h (■-■ n H e- f i n i. > : " r >'■ n :*' 

3 ? R E 8 T R E ■ ^ 2 ( 5 Fi ; F F? f : ! ™ 1 T n 4 4 : R F R D R ■ Fl $ <:' ! :: ! , ! ::: ! ) ™ F' H F^! $ < B > = 3 ü H D , B .- 1 S .- b = H E XT R 

3201 SOUND .- ■ Fi .. Fl = ■v"i..lF;P':: F\DF/ Fl iE "■ . 57344- ■ 1 £384 - 1. 024 "■■ 

8 3 ; : : : ' Fi P F Fl D C : T F F: ™ -- 1 T' h! F l- ! 8 1 1 H D . O , Fi , P Fi K p ^ •-: 9 , 3 .=1- : p E T U R H 

3 3 3 F Fi R Fl ~ T 7 : R E R D F: : S 1.J H D, Fi , R , 1 1 -i , F. : p n !< E I b : : : : 3 4 h- C : ; ! : - 8 + R ■ F: = H E X T R : G T 3 2 2 O 

3 '"'O^Fi DRTR 1 04 ■ 20 '!. • " :: : .= 20R . 3^ 4 .. 1 Fi 2 , b , 1. 04 , 1 49 , 2 X 1 . 202 .- 208 ■ 2 5 Fi .. 230 .. 2 1 2 .. 230 . 2 1 3 

820 |::: ! 1 DRTR 1 98 , 2 1 2 = F'FiR . 4. .. 1 9P , ;' ::> ! 3 , y^.i'i , ;|. ;■-; , 1. ^ 1. ;, ;■> 1 R' , 1 ;;"';™i , ;:;-' 1 4. , 23& .. 2 1 b .. 208 .. ;":' , 230 

:' :: :20 |: Y ::: ' DRTFl : ;:: ' 1 7 = 330 ■ 3 1 4 . 3F13 .. 734 ■ 330 .. ? :! 5 .. 208 . 230 .. 96 

32 1 00 DRTR 1 .. 2-4 .. 24 .. 24 .. ?4 .■ FJ"i . 1 8F: , 1 :?f; . 1 yf, 

32 1. 1. ["«RTF!- 2 ■ 1. 86 .■ 1 26 ■ 1 ?G .. 6"Fs , 34. , 34 : 34. , .34 

87 1 03 DRTR 3 . 96 . 1 1 2 . 1 26 .. 1 26 .. 1. 36 ■ :!. 1 2 .- 96 , 

32 1 03 DRTR 4 ■ 6 • 1 4 • 1. 26 .. 1. 26 ■ 1. 26 . 1 4 . 6 . 

32 1 04 DRTR ^ . 6 Fi , 1 26 ■ 1 26 . 1. 36 . f;fi , 3b , k6 , 66 

321 05 DRTR 6 , , Fi , 84 , i::: ib . 1 24- • ,:: 'F; . 84 . Fi 

33 1 06 DRTR 7 ■ 1 6 ■ 2 Fi . 92 .■ R0 .■ 1 1. 2 ■ 1 6 . 1 6 ■ 34 

821.07 DRTR . 8 . . 1.26 ■ 1.76 ■ 1 26 ■ '!. ; :::, ' ::: - ■ 1 ; :, 6 ■ '1.26 ■ O 

37 1 08 DRTR ' : -' - Fi , Fi . 34 , 34 , 34. , i"i , , 

37767' DRTR -1 
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Schneevogel 

für Atari 600/800 XL 

Mit dem Joystick kannst Du in diesem Bei jeder gefangenen Maus bricht Das Programm ist in Basic geschrie- 

Spiel den .Schneevogel' fliegen las- aber auch ein kleines Stück Erde auf, ben und benötigt ungefähr 7-8 Kam. 

sen. Bei eingedrücktem Feuerkopf wo die Maus herauskommen kann. Nach dem Eingeben .Start" drücken 

kannst. Du ihn so bewegen, daß er in Nach ungefähr 20 gefangenen Mäusen und warten. Dann die Labyrinth-Zahl 

der Lage ist, Mäuse zu fangen. Versu- kommt ein Rasenmäher und deckt alle angeben und .Return' drücken. Viel 

che also, den Vogel über die Mäuse zu Löcher wieder ab., Spaß! 

bringen und sie zu berühren. Ist die 

gefangene Maus von brauner Farbe 

gewesen, erhältst Du 100 Punkte. 

'Willst Du jedoch noch mehr Punkte? 

sammeln, dann paß auf: für kurze Zeit 

verfärbt sich die braune Maus in eine 

weiße. Wenn Du jetzt, schnell genug 

reagierst und die Maus fängst, gibt es 

1000 Punkte. 

1 rj R F M ■*: t 1 1 1. •'■'■■. f : M N F F V \) f\ x -"~ !. ■*' ■*: % 1 1 

" :, 8 rem t ry p iphh rf> kthef-fr t 

3 ö P EM :*■ h. 8 F T 7 F. !•■! T Ü R M 3 T R , 3 7 t 

40 PEf'1 t 71.00 HEI!.. BPH NN ■!• 

5 ü R F f ■■! :f -f t ■!- :*" * ■!- * * t 1 1 :■!■ "*: '=!■ ■!■ ■!■ "*: S" :*" :*: 

1 i : i i : i i "; !' "i 8 ! i ! : '■•■. 4 ! : i r= i c:: l : t " : l U T B r= ! 

4Fi0 PF : 'M F! V RTpf'j 

•-1 1 P Ü !■' F 7 7 .. : !. Q !■:'" "-■ P F F !< '"' B I P F ■■ ■- ? Fi 

4.1 S TP !. 00K : =6- : : THFFN 4 e= ^"i 

4 :? T. R !.. n !< ■=:" '■:■ i:; : t n p B T p [":■ - 8 <" ,: "; !": T H E M R F T U F ? N 

4 ■ ": y F ::i !"l !■:- F p T R F> . : F : ' K E B I R D 2 ■ 3 8 + 6 4 : B T R D -- B I P D - ? 

4 4 Fi t F :"; T R T G C '■■ -- t"i T H E N 4 

449 PET! !PH 

4S Fi POkF B I RD . : pn \< F. B T PD 3 ■ 58 ■•!■ 64 ' P0K E! B I R n 4-0 , 5 0+64 * PÜKE B I RD-28 .• 6 3 : B I RD*B I RD- 

40 

45 C| PF TU PH 

'-, Q Fl C; 7 ' :-, C; J T f "■ j," ,; f, ;, : p Q }. : - F R '[ p F . S P, + h, 4- 

,:r: i '! T F P F" p; !< .:' p J p d + ;:-■ :. .■= Fi T !■■•! FH p n !< F B T p [) , p = B T R D -B I R D + 2 @ ; P K E B I RD . 5 S +h 4 = P KE 53760. 

n:: i0 : POKF 50761 .. 8 

c:: ; 1. 5 P Ü k" F 5 3 7 b , : P K F: :: ' • 5 3 ? G 1 . 

*■ .v i: ■, t f " '"; T p Tu r; ";, r. : |/t T I-! f" W ! -i S !. ! g 4 

!"■; "; S . !-..[ p T p (". ::::■ ß T p fj + «'' C; T' ™: ? > C F T " :r: 1 1 ■' 

5 4 I f H B I P [ ■■ ■'' S C n R N B T P >'3 C + 4 7 9 T H F : ! H 'i 

S 5 !"! . j f- ■ p F F K < H B T R D '■ ™'m "f H F : ' !--! F : ' i'l h" F P T R f' . W : B I F= : ' F':« - N B I P D 

'5 5 1 L Fi n !< - ! :: ' F'' F :: ' !■::' -:' p I P + £ > 

"k"!;" 1, IF !...nOKs:62 THEH \~ST0 S7S 

5 c:: i i;:: i T' F !. t '"! ü V - S 3 T H E H P f ; " E P '[ R n - fi 

5 *■• T F !. K ■;' > 1 8 7 f H F N *5 8 

,: 5 1=" c:: i P i"'t !< E 5 3 ; ;: ' 6 1. - 1. 1 : "^ B : F :: ' n R fl " ■"' r "> T U 3 ;;"' ST F p 4 : pn K E 5 3 7 b .. PI = NE X T fl 

? 7 P K F": B T R F> , ; B I P f> == B I R D + 2. fi : R F :: ! ™ ; ; '=: C R E! :::: S C R F. + X 8 : H T T : ~ H IT + 1 = G TO 5 90 

'5 & I f : " ! ... FC ■:: > 1 2 3 T H F. N r : : i 9 

5 8 3 P n K F. ? 3 7 6 1. = 1. 7 ■ F F^: B ~ 1 c: > Fi T ? 5 Fi B "f ' E F : " 4 • F K E 5 3 7 6 8 .. fl : HEXT' R •- 

5 .9 L =; P K E B I P F> . i' : i ■ B I P F'> ■- B T P D + : :: -: : R F\ ~ = " ::; ; C C'i R E ™ '; : : C o R E + 1 1 8 ■ H i T = H I f + 1 

c v-"iFi TF PHF^:'0yi:iFr>HBPD "fHEN FfiFUB F00 

& i 95 T F H R P f:> < F T H F H t f : " H I T - 1 ^ T H F:! !-■! P !< E M U : :: : E , = G S L l P 8 8 

c: i " :: ^ o P 3 T T 1 1 "i H 9 .. t'i : ? i* 6 ; 8 r !'"{ p F. 

"5 ,::; ' 9 P U K F ;: ' 5 " :: i 7 F , ■ P K E 5 3 7 F 1 , = r " (1 "f ' n 5 Fi Fi 

F00 RPH MO VF RRTS 
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em if pr=i tuen 628 

610 RRT=8C + T NT ■: RND C ;v*:439 > + 20 ; I F PF EkX R RT ■•< >0 T HEN 6 1. O 

6 1 2 I F P R T < S C + 1 4 1 P P R T > 3 C + 3 7 8 T HE H 6 1 O 

6 1 5 R Fl ™ 1 : P OKE P R T ■ 5 9 + 1 2 8 j P !< E R R T + 1 . 6 3 : H 1. . F ~ H 0! .. F + 1. 

618 IF H0!....E>50 THEN POP : GOTO 4000 

6 ?. 6 T F P R T - 1 < 3 C + ! 3 1. T HE N P [< E R RT , O : R Fl = ; G T 6 1. 

685 SEE^pEFkXRRT-! >= IF SFE==0 THEN POk'E RRT ..Ei'PRT-RRT-i =PQ!<E RRT, 59+128 

6 3 I F 3 E E = 6 3 T H E N PO K F p R T , : P R :: = : G 3 1 ..! p 650: R F T UR H 

6 4 @ I F R N D '■ •■ * 1 > 9 , 5 T H E N P K E P P T ■ 5 C| + 6 4 

649 PFTURN 

f. 1 !® POK'E 58761 .. 1 26 : FTiR R=?h 'TTt 1 1 6 STFP 1 Pi : POKF 5 27 F, Fi - R : HFXT R : PDKF 5276R ■ Fl : PfiKE 

537Gi,0= RETURN 
300 REN MO VE T PRO TOP RND FI!...!. HOLE 8 
RIO FOP I"SC+1 30 TO 30+37? 
8 1 L "' SO U HP Fi , 1 00 , 1. 3 , 8 ■ 301. 'HD 1 , 1. 50 . 3 , 3 

R20 POKE I ..57+ 1.28 = FOP R-t TO 3 c i ■ NE KT R = POK.E I . O = ? #6; " " = REM 6 SPACES 
3 3 5 GP R P H I C 3 O : P K E 7 1 ■ 2 : P K E 7 1 2 .■ 3 = P !< E 7 5 2 , 1. : P F; I T 1 H 9 .. = ? #6 ; S C P E ■ P S IT 1 H 

9.. = NEXT T : HOL F--R 
8 3 H RP D ~ :; H R R - 1 : I. f :: ' H F! P D ■■ ' 4 T H E H H ! ; : ! R D :: " 4 
84 9 SOUND .- .. ■ Fi : SOUND 1. • . ■ ; H I T=0 : RETLJRH 
35 Fi REM LOSE PIPD RND ■-;"!" ! :: ! RT OVFR 

855 POK'F PTPD.FDFOP R--75 TO Iftfi STFP 5 = SOUND 0.. R . 1.0, 8 ■ FÜR H~1. Tu 20 : HEXT N ; NEXT 
R : ROUND ■ fi ■ ■ 

P 6 P ! < E 5 3 2 4 8 , : G 8 I ! p 80 5 Fi : G "f ' 5 Fi 
1 00 Fi REM FHTFR !.. FVFL 
1. 1 G R R P H 1 8 '!. ? + 1. f. : P K F. 7 5 2 . 1 " 

1. F102 setitü. op. 4 . ' ::: ' . i :- : ' ■ c :f : "Trni...ne' Fi ,5.1 :;;;■ ■ pokf ; :: " 1 o . e. 

1 Fi 3 P 8 1 T 1 N 1. Fi . 5 = "- # t-, ;"* :*: * c ; f: H HF E '. ' G E !. ... :t ■!■ :*: " : F R X ~ O T 1. ' H E X T X 
1 Fi 4 P i "i 8 1 T 1 N 1. 4 . b : ' 7 # h ; ' ' •' c '> 1. 9 8 4 ' ' 
i O i"i 5 P 3 T T 1 N 1. , 7 ^ ? # 6 : ' ' ! n ^ P T C H ! ::: ! PX-' !< R F F E R " 

1: Fi 6 p n 3 1 T 1 H f ;:: f = '"'- : " : " # 6 . ; ' ' u n Fi ("i 00 00 00" 
1 O O 7 -F n R y =: 1 M Fi "!" n ,::: ; T E 1 ! F' ■■- =, 1 
1 F: <=: E T !... n R , X .■ 9 
lOO* HEXT X 

■ 1. 1 GPRPH I F"~; Fi = PRKE 7 1 , m ■■ pn|<P 7 1 : :: ' - SP, ■■ POKE 752 , 1 : PO 8 1 T I OH 9 , 1 : ? " I H WEL..CHEN L 
RB YR I H T H i-i 1 !. E N 8 T F ? : ; "[' R P T E H " ? " ' ' 

1 1 5 T R R P 1 1 5 ; P !■•:' E 7 K > 8 - = P n 8 T T 1 !■■! 1. 3 , 1 q :; = ? ' ' !... R B V p I !■■! T H 1. 6 ' ' ■ : I HP U T L E VE L • 

1085 TE IFVEf ..<:!. RR !. FVF! >8 THEN 1.0 I.Fi 

103F1 HRRD~ie-LEVEl. 

1. 5 O G R R P H 1 8 : P K F 7 ^ 3 , 1. ■ P n !< F 7 1 Pü , H = P 8 1 T 1 H 1. 3 ■ 5 : ,? " B I "f ' TE UR R TEN.»." 

3 Fi R Fl NT P ~ P E E K ( 1 6 > - 8 : P !< E 1 Fi 6 .. P Fl N T P : ' ■ C H P Fl 3 : " : R f =1 M T P : ST Fl R T ™ : C H B R S * 256 

3 005 F Fi R T = Fi 'T '!. 2 3 : P F' E ,:: = T Fl R T + T - P F E !•• ' < r 5 7 ?• 4 4+ 1 > : N E X T I 

2 1 Fi F P I.s= E:: i 7 T ' : " 3 ■ M V F " : y> TR P T + '■ I :+: 8 ':- 

2 R 1 c i f :: ' R R == Fi T 7 : P ER D 8 H Fl P F ; P K E < M V E + R ) , P \-\ R F :: ' F = !•■! E X T Fl = NF! X T I 

v 5 G R RP H 1 8 1 ••!» i 8 = p n !< F 7 5 6 . C HE: R 8 : P K E 7 1 2 .. 8 : P !<F 7 1 8 .. : P K E 7 9 .. 2 5 5 : PO« E 710.-34 

: POKE 708 . 1. 38 

2 O 5 5 P> ;::: - P E F K ( P P ":■ + ? 5 6 % P F E K »' ! ::: : 9 '> : B I P D ~ * ::: ; C + 4 5 

8 Fi 6 8 F: t'"i F: E : = Fi = HO !. . E :: - : O : H 1 7' ::: " 

2! ;: i85 GOTO 3000 

368 ^ DflTR .. , ?4 , ?4 , 3.4 , 1. 36 , 36 . 1. c.f> 

209Ö DRTR .. 1. 95 . 3^ - 24 - 3 '4 . 3^ ■ 8 ■ O 

20' ::: ' 1 DRTR 1 44 , 1. 1. 2 - 1. 1. 3 • 1. C| . Fi ,0,0,0 

2 09 2 DRTR 1 OO .■ 255 .■ 1. 00 .. 255 ■ 1. OFi , 855 .. 1 00 ■. 855 

oqci 3 HRTR 255 .. 255 > 255 .■ 255 ■ , , .. 

2094 DRTR 1. P? • :"'4Fi . 252 .- 855 .- 76 ■ 24 .. 1. .. 75 

2085 DRTR 1. 3 .- 8 .■ 42 ■ 1 68 .- 42. > 1 70 ■ 1 7 Fi . 1. 68 .- 40 . 

809 9 DRTR 1 26 , 1. 26 , 255 , 1 37 , :!. 27 ■ 254 , 2:54 , 355 .. 255 , 1 2.6 , 1. 26 . 1. 54 . 255 , 254 , 1 26 . 1 26 .. 255 .. 25 



5 ■ 855 , 355 






3 F OR I = S C +46 T 8 C + 4 7 9 • P !< E I ■ 6 + 1. 9 2 : N E X T I 

3 805 FÜR i - S +6 1 T 8 + 65 ■• P 1< E 1 , 6 1 + 1. 9 2 : N E X T I '= F OR I ™S C + 1 1 T S + 1 5 : P OK E I .,61 + 
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192= HEXT l 

301.5 FÜR I-8C+400 TD 3C+459 = POKE L- 62 = HEXT I 

3Fi2.fi FÜR I-SC TD 3C+7 = PDKE 1 .60+19?.: HEXT I = FOR ]>SC+13 TD 804-19 = POKE 1.-60+192 = HE 

XT I 

3022 FOR 3>sc+39@ TO SC+386 : POKE I , 60+1 '92 = HEXT I = FOR 7.~=SC+394 TO SC+399 = P0KE I.-6 

0+192= MEXT I 

3050 REM P--M GRAPHICS 

3055 PM«PEEK< l C16 >™ 1 6 = POKE 54279 , PM = Ff 1RRSE=="=PH*256 = POKE 53277 , 3 = POKE 704 , 244 

30£fi FOR T=Pf1BRSF+10?4 TO PMBRSE+1279'POKE I ■ = HEXT 1= RESTORE 2099 

3065 FOR i-PHBRSE+l 024+50 TO PMBRSE+ 1047+50 : RERD PMG : POKE I .. PMG : HEXT I : FOR ]>PMB 

R SE + 1 48 + 5 T P MB R S E + 1 2 5 

3 7 O P Ü K E 1,255 = H E X T I 

3095 Pi'iKE ' 53248 , 72 : POKE 623 ■ 1 : POKE 559, 62 

3099 RET! IPH 

40190 REH DRRW WRTER 

4007 FDP 1-30+335 TO SC + 2 5 STEP •-20 

40 RS 30UHD 0.« 13.. 3- 1? 

4i/i 1 FOR R=- 1 H7Y PHfV 1 ;v*:4 > TO T HK RH CK 1 )* 1 8 > = POKE I +fl , 62 : HEXT R 

401.5 FOR R==l TO 20 : HEXT R = SOUND 0,0,0.0 = HEXT I=PO!<E 712.. 134' FOR R"l TO 500 = HEXT 

H 

,1025 POKE 712 ■ 1 48 = FOR R= 1 TO 500 : HEXT R : POKE 53248 , = POKE 710,1 34 = POKE 71 1 , 1 34 •• P 

n K F 7 O ** .. 1 3 4 = P K E 7 08 , 1 3 4 

4 3 p n !< E 7 1 2 , 1 3 4 = F R fl " : 1 T 5 O O : H E X T R 

4055 GRRPH 1 08 = 8ETC0L0R 2 , 4 . 1 1 = 3ETC0L.0R 1,0,0 = 8ETC0L0R 4 , 3,4 = POKE 756 .. 204 = POKE 

82..0 = POKF 752, 1 

4 f\£,F\ •? ' ' m n f 9 g. b e i. s t e s R R T T E H m i t p i n « : -- m VO GE f.... z u f g. vi 9 e rt ,. " 

4 7 '? " D -'i. b P '!. !'''! '. i. :!;: " ::: < !m '^ Vi - '..' !""'! f " 1. i P 9 P Vi £ '. 1 !< O P Vi 'ff P Vi , d 1 & F P 1.1 P !■"■ t- ^. S + P -3. !''*< 8 + P U. P r l\ Vi U P P P P 1 d 

!"LI."=i:i*'"k"»-'"ri„ " 

4 O 8 '? ' ' D p m V o 9 p 1. k ■' n *n m :=j vi 1 i vi !■■■: •="• u. n H r p c h + s d u. r c h d p vi 8 + p u. p r k m ij. p P P p 1. b & • j p 9 p vi u " 

4 9 O '^ : ' " 1. ' Tm p 1 Vi P P : l. t . + P 7 ' » f ' "'. '!'"! 9 P Vi !'•'! '..I. :=!• " : . !V| . : ?. f'i '.,' O Tl O b •=■=.• T'i d !""• •!!». U. f " f ' 1. i «=!=• 9 '"' 'H „ ' ' 

4 1 ' ;: ' ' ' F i. vi p b r : =i i..i vi e' P •;?. 1 1 e b r i vi 9 1 '!. O O Pu. T'tk t e .. p i n p '.■.' p i s s p d •). 9 p 9p 'n b r i 'n 9 1 1 @ O P u. nk 

+p . " 

4 1 2 '''' ' ' D X i*=' P 1 1. A k "!"■ '7. 3 !•"! 1 1 :"■ + 1 h ':":! P !•" O b P !'"• h- n H -=i. P '!. f t >': t'i P 5!- B i I d :ü : - C b i r* r*'i P :=•- , ü. Vi d i.'J P Vi Vi Fl 3. Vi d P 
T\ ! ! V|f i"'!-"-i:"'n T '"• i 1. " 

■i 1. 3 ' ? ' ' r>'p i. t H p !'<! 'v 1 «■ "i '"^ p 1. b p !'■ i. .i. p h !•■■ t - - ~. o i ■=-- 1 . d ::i . p ''"■ P I '"■ I -^ u. p •..'. vt d m ii vi t ' p p vi 9 1- s o f ' o r* t. v o vi Vi p 

MP|Y| IT'I:, " 

4 1 3 5 P 8 T T T H c > , 1 9 ■ ? ' ' p p F S S *. t Ov- 1 T U B E G T H T H E G RH E ' ' 
4 1 4 } ;:i i f p p [ :; ),;■ t - «5 ;■;:; 9 7 q ;, ,• > ^ y M F H 4 1 4 

4 -| Q0 f" 1J "f |J 1 |y| r ('; \"\ C; | j F; 9 (?, Kj : f™ f "| '[' f [ rs; j^p. 
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Kleinanzeigen 



Angebote: 



VC-64 

Biete echtes Monopoly für 
V064. Wie im Original.-' 
Diskette DM 20,- 

Cassette DM 18,- 

Chitfre 0401 

Commodore 64 

irre Programme (375) 

zu irren Preisen ! 

Ausführliche Liste 

(48 Seiten) gegen DM 3,- 

in Briefmarken. 

Detlef Treichel 

Mittelbruchzeile 105 

1000 Berlin 51 

100 neue Programme 
turMZ80K, MZ80A, 
MZ 700, VZ 200, 
Laser 210, TI 99. 

Info, 1, — DM in Marken, 
von H. Weisel 
Königsberger Str. 20 

5412 Ransbach 

Kontakte : 

Comp.-Club Bad Hersfeld 

sucht Mitglieder! 

Kontakt über 

Roland Reyer 

Am Giegenberg 21 

6438 Ludwigsau 1 

oder Jugendhaus Hersfeld 



ZX Spectrum 

Soft- und Hardware. 

Preiswert 

durch Direktimport. 

Info bei : 
Ursula Kunz 
Junge Halden 3 

7500 Karlsruhe 41 

Verkaufe 

Anrufbeantworter , 

Drahtlostelefon , 

Telefon -Anlage 

Eurosignal 12Q0.-DM 

Div. USA-Telefone 

Info bei: 

Reinhard Winner 

Höchbergerstr. 62 

87 Würzburg 

COMPUTER-CASSETTEN 

im 10er Pack, BASF-Band-LHD, 
mit Box, Etikett und Einleger 
CIO nur 15- DM 

C 20 16,- DM; C 30 17 - DM 

Brandneu von TDK: 

PC'10 im 10er Pack 29,- DM 

CASSETTEN-AUFKLEBER 

auf Lochstreifen 100 St. 5,- DM 
120 St. auf A4-Druckbögen 
7,- DM; Versand ab 20,- DM: 

Christomenia-Cassettenstudio 

Postfach 20 

3584 Zwesten, Tel. 5626.-2 81 



ZX-81: 

Großes Software angebot. 
Spiele, Infos, Tips, 
Amateurfunk-Software. 

Ausführl. Liste gegen 
Rückporto von: 
Michael Schramm 
Frei ligrath str. 5 
2300 Kiel 1 

Universelles 
Kopierprogramm 
Copy für den ZX Spectrum 
auf Cassette + Catalog - 
Programm + Beschreibung 

nur DM 16,- 
100 Programme für VC-64 
wegen Hobby - Aufgabe 
zu verkaufen! 
Rolf Freitag 
Gneisenaustr. 87 
4600 Dortmund 1 
Tel: 0231 - 825826 
Verkaufe 

Atari, und jede Menge 
Kassetten, i. B. : 
Phoenix, Dig-Dug und 
Standard Steuerknüppel 

Tel.: 07945-561 



Tausche Spectrum -Software, 
Jan Weigner 
Carl-Schurz-Straße 11 
2800 Bremen 

Sinclair forever! ! ! 
ACHTUNG 
für TI 99/4A jetzt lieferbar 
EXTENDED BASIC DM 295,- 
Editor Assembler DM 189, : 
Parsec DM 79,- 

Ti-Logo II DM 320,- 

32K-Erw. extern DM 428,- 
Modul-Spiele direkt aus den 
■k * * * USA ******* 
zb. Mash , Demon , Baseball , 
Tunnels of Doom , Moon mine, 
Jawbreaker , Hopper , Attack , 

Bigfoot DM 99,- 

diverse ATARI-Spiele für TI 
Pac Man, Donkey Kong.Dig 
Dug , Mrs. Pac Man , Defender, 
Centipede ... DM 99,- 

Neuü! MBX-Sprachsysteme 
nur für den TI-99/4A 
Spiele direkt mit der Spra- 
che steuern DM 298,- 
Neu !!! GRAFIK TABLEAU 
für TI 99/4A DM 298,- 
für ATARI DM 248,- 
für VC 64 DM 298,- 
Bitte Preisliste anfordern: 
RADIX Bürotechnik 
2000 Hamburg 13 
Bornstr. 4 
Tel. 040/4416 95 10-18.00 h 



Aktion: Billige Kleinanzeigen 

Lieber Leser, 

wollten Sie eine Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Oomputer, Software oder 
Kontakte zu Computer-Clubs etc.? 
Dann nutzen Sie jetzt den Kleinan- 
zeigenservice von ,Computronic'. 
.Computronic' ist die Zeitschrift für 
Home-Computer-Besitzer. Sie errei- 
chen durch uns eine Vielzahl von Le- 
sern im In- und Ausland. 
Und so wird's gemacht: 

Klein anzeigen- 
Coupon ausfüllen (alle Zeilen können 
ausgefüllt werden) und gegen Vorkas- 
se von DM 4,50 einsenden an: 
Tronic- Verlag 

Postfach 41 
3444 Wehretal 1 



Eingesandt 

werden muß bis spätestens 1. Juni 

1984 (es gilt der Poststempel). 

Also, schnell ausfüllen und einwerfen 
in den nächsten Postkasten. Dann ist 
mit Sicherheit Ihre Kleinanzeige da- 
bei. 




tniecsiaKK 

INTERGRAFIK WERBE GMBH 
Danziger Weg 12 3440Eschwege 

Tel: 05651 -12565 

Grafik Fotografie Siebdruck 
Beschriftungen Schnei Idruck 
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Korrekturen Heft 5 

Leider wurden in unserer Ausgabe Mai'84 nicht die Original - Listings der Atari-Spiele » Tank - Battle « und » Oil - Panic « 
abgedruckt .Wir bitten dies bei allen Atari - Fans zu entschuldigen . 

Richtig : Tank - Battle 1 m SETCOLOR 1.1.11- SETCOLOR 0,11,12 = SETCOLOR 2,8,8 = SETCOLOR 3 * "5 , 7 • T= 10 = T 1 = 1 Q 

3 40 PDS I T I ON , 22 ■■ PR I NT #6 .; " TRNKS " s T :■ " TRNGS : " ■ T 1 : " " : POS I T I OH , 20 = PR I NT #6 1 " MO 

VFS ■ " ; PG 

365 IF S=0 THEN ;<=19 

1320 IF P=4 THEN C:=Q 

B^Ö TRftP 940 

96Pi IF KOI 89 RND KOI 59 BND KOS RND KOtS6 RHD KOI 1 RND KOI 71. THEN CO!.. .HR W- 

PFTMRN 

i 1 10 POKE 559 ■ ' RESTORE 1 130 

1.670 PESTORF 1686 : FDP fl= : i TG \ \ ■. READ CH'PRIHT #6.i CHR*CCH>: ! GOSUB 1 720 = HE'A'T fi 



Richtig : Oil -Panic 



:-'30 DIM R*C 28 >: RESTORE 250 

4 1 I F ST< 1 2. RHD ST >S THEN K=H-4 = ROUND , X+57 , 1 PI , 6 

440 POKF 5S24ft , X : R["U JHD , , .■ 

'1-50 I F 8=0 THEN ' W= I NT-:' G|,| j : T= I NTf RNIX ':<:* 1 9 ':■ ■■ S" 1. = COL.OR t 24 : PI . OT T ■ 2 ■ GOTO 290 

-4-90 FOR fl=240 TO SO STEP -20 = SOUND 1. . R . "I.0 . R ■ NEaT fl : SOUND l ■ ■ • O 

5 fl fl p n K p 5 : ■; ?; ' ■-' fl , fl : F R fl " 2 T G 2 1 : C !. .. R 1 2 9 : P !.. . T T .• Fl : FO R R = 1. T i fl : N R X T B : C L. p 1. F. 4 

= pi.ot t. funext rr-o 

5f:i-i FOR R=PM+1024+V TO PM+1024+Y-H STEP -1. : POKF fl ■ 2S [= i : NEXT FuRETURN 

' : "i 9 O Et"! R fl = P M +10 ? 4 + V - 7 T P M + 1. 32 3 + V - H ■ p K E fl , ■ N F ';< T fl : R F T 1 1 R N 

f-' 20 ! -fi : H-t : UUf:! IR SSß = GiOSUp 590 : RETURN 
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Computronic Bestellkarte-Cassettenservice 

Alle im Heft abgedruckten Programme können als zusatzlicher Service, zum Selbstkostenpreis, über den Verlag bezogen 
werden. 

gegen Vorkasse I I 

Die Zustellung erfolgt : per Nachnahme innerhalb von 14 Tagen! 

+ Versandkosten I I 

Achtung: Disk etten könn en vo rerst nur für: Apple 

VC-64 
VC-20 bezogen werden! 

Entnehmen Sie bitte aus unserer Preisliste Seite 80 die notwendigen Angaben für Ihre Bestellung : 
Bitte liefern Sie mir: | | Cassette für , • l j Anzahl 

System 

CH Diskette für „ O Anzahl 

System 

zum Preis von gesamt: DM 



Nr 



ame: 



Straße, Nr.: 



PLZ/Ort: 



Unterschrift, Datum: 



Computronic 
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Service 



Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genauestens geprüft. Alle im Heft abgedruckten Programme 
sind nach der richtigen Eingabe der Listings auch funktionsfähig. Viele Leser verlieren jedoch schnell die Geduld am Programmieren, sollte etwas einmal 
nicht klappen. Die häufigste Ursache von Störungen im Programm, sind unterlaufene Fehler bei der Eingabe. Verzweifeln Sie nicht, sollten Sie einmal keine 
Zeit zum Programmieren haben oder sollte etwas nicht gelingen. Alle Programme werden im Verlag gespeichert und können jederzeit mit beiliegender 
Bestellkarte zum Selbstkostenpreis bezogen werden. 

Tragen Sie bitte alle notwendigen Angaben in die Bestcllkartc ein, und senden sie an: 

Tronic- Verlag GmbH, Postfach 41, 3444 Wehretal 1 



VC-64 

Mauern, Widerstand' 



t^x a 7V fti K = 8,50 DM 
D-15.-DM Invader.Gun-Man 
. Landeanflug Boing 



ZX-Spectrum Dragon 32 K = 6 ,- DM 

Inventur K-12.-DM ßUzzard 



T l 99 K = 8,50 DM 

Drei-Kronen-Spiel 

Zahlenputzen 



Apple II K= 14,50 DM 
Apple D=1 g i50DM 

Wilder Westen, 

Karambolage, 

Maskengenerator 



VC-20 K=U,50DM ^. QDM 

Han^an Sau« kegen, M = i 

Quadr. Gleichung 



karl der Küfer . 
Alien-Landing 



VC64 K =1.5,50 DM 
D = 23,50 DM 
Space-Comets 
Erdspalte 

Sprite-Data 



Apple II K ^ 9.50 DM 

Musik-Maker 
Mission-Adler 
Disk-Cataltig 



Sharp MZ 700 Kalender 
Sharp PC 1500 Lotto 

Pragon32K=lC,-. DM 
Space-FIight, Geosoft 

2X-81 kTj^T^ 
Go-ßall, Grand-Prix 

2X Spectrum 

Vf . ., _ K = 6,50 DM 

Atari *- K = J2,50 DM 
iank-Battle 
Oil Panic 








Now Activision lakes a new direction, bringing releniless action, 
. intrig ue and i ncredibly realistic game piay to Atari® home Computers, 
River Raid.'" The mission: pilot your jet over the river while blowing 
up bridges that carry the enemy to the other side. Gommand the 
ski es, blasting battalionafterbattalionofjetsandchoppers. Raid the 
river, destroying tankers, and Bomb the hot air balloans that track 
you down in the distance. Then re-fuei at scattered depots alongthe 
pathway. Think last and follow your instinets. Weave down the nar- 
rowing Channel with every ounce of stamina in you. River Raid," 
from Activision, the greatest, battle adventure of ad time, now 
for Atari* home Computers. Designed and adapted by Carol Shaw 
to challenge you every step ot the way. Can you 

make it? 



AcWisioN 



Just one ot the ränge of Software for i 
your Atari Computer with prices from 
£8.50. We operate a rental library too, 

WE PUT YOU IN THE GAME. so why not send an SAE for details or 
better still 50p for our new magazine'catalogue. Füll ränge of 

Software for Spectrum, Commodore, vic-20, Dragon, etc. 

VIDEO GAMES CENTRE 



Preisliste Heft 6 (K) (D) 



VC-64 


K = 16,50 
D = 23,50 


ZX-81 


K= 10,00 


„Data Generator" 
„Autoslart" 




„Moon-Crash- 
„ZX-Draw" 




„Bestellschein" 
..Roadpaintor" 








ZX-Spectrum 


k = 13,50 


Dragon 32/64 


K= 8,50 


..Wargames"' 




„ De f ender" 
„Lui der Wurm" 
„Alternativer Zeiehensatz" 




Apple II 


d= 19,50 

K = 12,50 


TI-99 


K = 14,50 


..Snake" 








„Super Datei" 
„Shape-lables" 




„Jack the Digger" 
„Noah - 2099" 




VC-20 


k= 8,50 
d = 15,00 


Atari 


K = 12,50 


„Bestellschein" 

„Glücky" 




„Tomstone-City" 
„Schneevogel" 
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Computronic Abonnement 

Bitte ausschneiden und senden an: Tronic- Verlag, Postfach 41, 3444 Wehretal 1. 



Hiermit bestelle ich die Zeitschrift: »Computronic« ab Heft Nr. 



zum Jahresabonnementpreis (12 Ausgaben) von 



DM 55,— incl. Versand, Inland und DM 75,— incl. Versand, Ausland. 



Name/Vorname : 



Straße, Nr. 



Plz, Ort: 



Ich wünsche folgende Zahlungsweise: 
I | Bargeldlos durch Bankeinzug: 



GeHins titut: 

| | gegen Rechnung 



| | gegen Vorkasse 

(betreffendendes bitte ankreuzen) 



Bankleitzahl : 



Konto Nr. : 



Datum. Unterschrift 



Abonnements-Kündigungen: 6 Wochen vor Ablauf des Jahres- Abonnement. 



Computronic Kleinanzeigen nur gegen Vorkasse 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe 

unter der Rubrik: I j Angebote ] | Kontakte 

' 1 I Gesuche | | Verschiedenes 

folgenden Text: 



Bitte jeweils 35 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 



Preis für Kleinanzeigen : 



Private Anzeige 
gewerbl. Anzeige 
Chiffregebühr 



Name: 



DM 4,50 

DM 8,0.0 je Druckzeile 

DM 10,00 je Anzeige 

Straße, Nr. : 



Vorname: 



PLZ/Ort: 



Unterschr ift, Datum: 



privat 



D 






gewer 



bi.D 



(bitte ankreuzen) 







Ävajistele for* 

IBM-PC™ '■ 

CoNißoVIstote**.- 

CofiMfOdontOW 



iC&v 



Heft 7 von Computronic ist: 



fkh 



25.3» rti 



W *+* 





Natürlich bringen wir dann wieder 
jede Menge Programme! 

Programme! 
Programme! 



fRfMr 




■ ■■ .:. ■ ■:.■ .: 






und: 



Neues, Infos, Tips + Tricks! 



> 



~ 




"■ * ; SSr : 



Es verabschiedet sich: Die Computronic-Redaktion 



Impressum: Computronic erscheint monatlich im Verlag: Tronic-Verlagsgesellschaft mbH, Landstraße 29, 3444 Wehretal 1, Tel.: (05651) 40643/40693. 
Redaktion: Rainer Beck (verantwortlich), H. A. Ederg. Freie Mitarbeiter: Frank Brall, G. "Wagner. Satz und Reproduktion: Intragrafik Druck: 
Schimmel KG, Würzburg. Vertrieb: Inland (Groß-, Einzel- und Bahnhofsbuchhandel), sowie Österreich und Schweiz: Verlagsunion, 6200 Wiesbaden. 
Anzeigenverwaltung: E.Herwig. Anzeigenpreise: Es gilt die Anzeigenliste Nr, 1. Bitte Media-Unterlagen anfordern. Bezugspreise: Einzelheft (Inland) 
DM 5,50, Abonnement (Inland) DM 55, — , (Ausland) DM 75, — . Autoren und Manuskripte: Bei Zusendung von Manuskripten und Datenträger erteilt der 
Autor dem Verlag die Genehmigung zum Abdruck und Versand der veröffentlichten Programme auf Datenträger. Für die mit Namen des Verfassers gekenn- 
zeichneten Beiträge übernimmt die Redaktion lediglich die presserechtliche Verantwortung. Alle in dieser Zeitschrift veröffentlichten Beiträge sind urheber- 
rechtlich geschützt. Nachdruck (auch auszugsweise) und Vervielfältigung nur mit ausdrücklicher Genehmigung des Verlages. Für unaufgeforderte Einsendungen 
von Manuskripten, Tonträgern und Software wird keine Haftung übernommen. 

Wir bedanken uns für die freundl. Unterstützung der Fa: »Foto Dunkel« 3440 Eschwege 



computromc 

Tronic-Verlag GmbH 



computromc 

Infos 



Tips und Tricks für Einsteiger, Anfänger und Fortgeschrittene. Informationen und Daten. 
Sinnvolle Anwendungen und Anregungen. Lernen, anhand von Com p utronic , Programme 
einzugeben und Programme zu schreiben. Von Basic bis Maschinensprache. Neues vom 
Computermarkt über Hard-und Software. 



computromc 

Software-Listings 



Unser Schwerpunkt in den Ausgaben [70%]. Leichte und anspruchsvolle Programme 
werden im Heft abgedruckt, wobei die Redaktion alle bekannten Home-Computer 
berücksichtigen wird. Wenn man will, kann man die Programme einfach eingeben, damit 
spielen oder arbeiten. Alle Konzepte und Begriffe sowie alle Spiele werden vor ihrer 
Anwendung erklärt. ■ 



computromc 

Software-Service 



Abgedruckte Programme können als zusätzlicher Service über den Verlag bezogen 
werden. Wer kein Interesse hat seinen Computer zu »füttern«, oder wem es zu lang- 
weilig wird zu programmieren, kann alle abgedruckten interessanten Spiele auf Cas- 
sette und Diskette erwerben. 



Com p utronic erscheint monatlich im Tronic-Verlag. Der Bezugspreis beträgt im Inland 

DM 5,50. Im Preis ist die gesetzliche Mehrwertsteuer enthalten. 

Tronic-Verlag GmbH ■ Postfach 41 ■ 3444WehretaM • 05651-40643/40693 



